linux比较两个数组是否一样,perl 如何对比两个数组是否相等???的相关推荐_ChinaUnix论坛...

相关讨论

Bean.pm

package Bean;

use strict;

use Class::Struct;

struct Bean =>

{

name => '$',

list => '@',

};

1;

test.pl

use strict;

use Bean;

my $bean;

my @l;

my @list;

my @beans;

@l = ('111', '112', '113');

push(@list, [@l]);

@l = ('121', '122', '123');

push(@list, [@l]);

@l = ('131', '132', '133');

push(@list, [@l]);

@l = ('141', '142', '143');

push(@list, [@l]);

$bean = Be...

by

clyman

-

Perl

-

2007-12-23 15:23:21阅读(1987) 回复(8)

有没有简单的办法比较两个数组,得到一个含有共同拥有的元素的数组?不想一个一个比较。

谢谢!在线等!

by

sedulous

-

Perl

-

2008-06-27 08:32:58阅读(6516) 回复(4)

我自己也写了一个,但因为要被频繁的调用,所以我需要一个比较稳定,高效的,怕自己写的不行,请指点迷津

by

picobsd

-

Perl

-

2004-05-27 22:39:42阅读(2329) 回复(1)

现在有一个文件: data.h, 其内容如下:

/* File Name: data.h */

UC D1[] =

{

//D1P

0,6,13,123,0,32,4,81,

3,109,0,23,5,17,32,12,

};

UC D2[] =

{

//D2

127,107,127,132,127,127,111,127,

127,125,127,127,127,127,127,127,

};

现在要使用D1和D2里的数据,如何把D1和D2里的数据写到数组d1和d2里去呢? 哪位大侠能帮忙给段代码,兄弟感激不尽......

by

plage

-

Perl

-

2008-07-08 15:50:43阅读(2459) 回复(3)

我有test1.pl和test2.pl两个程序,先运行test1然后运行test2没有问题,但是我想放到一个程序里面,test2以test1的结果为依据运行,请问在linux环境下应该怎么办?谢谢。

by

wengkun24

-

Perl

-

2012-10-25 15:23:19阅读(1328) 回复(7)

例如有两个相邻的单元格,用perl如何实现其合并?请教专家

by

qbxy_dream

-

Perl

-

2011-08-28 22:34:14阅读(7561) 回复(17)

如@a= qw/aa bb cc dd ee ff/

现在想每三个元素合并成一个,只想到下面这个,实在太麻烦了[code]@a= qw/aa bb cc dd ee ff gg/;

my $flag =1;

@b=();

$str;

foreach (@a){

if($flag==4){

push @b,$str;

$str=undef;

$flag=1;

$flag++;

$str.=$_;

}

else{

$flag++;

$str.=$_;

}

}

print "$_\n" for@b;[/code]

by

jwos1234

-

Perl

-

2014-03-17 19:52:07阅读(3704) 回复(5)

需要达到的目的是,将02从01中筛选出来,并且需要01中所有的信息。其中需要的调试文件,由于文件较大,只上传了一部分,作为调试使用。请大神指点一二!!!

by

jingwu110

-

Perl

-

2013-08-14 22:30:11阅读(5229) 回复(2)

请教一下, 我现在在用perl 比较两个文件, 哪位高

手能指点一下, 大体是这样的:

第一个文件比如是:

第一个文件比如是:

1:

1253 4

1111 3

2435 5

2:

1254 6

2354 3

2353 4

第二个文件比如是:

1:

1111

2435

2:

1254

————————————————————

输出是:

1:

1111 3

2435 5

2:

1254 6

用perl 如何实现??

请教一下, 我现在在用perl 比较两个文件, 哪位高手能指点一下, 大体是这样的:

第一个...

by

lymaple

-

Perl

-

2008-03-07 10:59:35阅读(1386) 回复(1)

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值