相关讨论
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)