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...

有没有简单的办法比较两个数组，得到一个含有共同拥有的元素的数组？不想一个一个比较。 谢谢！在线等！

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

现在有一个文件: 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里去呢? 哪位大侠能帮忙给段代码,兄弟感激不尽......

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

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

如@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]

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

请教一下， 我现在在用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 比较两个文件， 哪位高手能指点一下， 大体是这样的： 第一个...