perl 例子求合并一个数组的方法

来源：互联网发布：java缓存技术怎么实现编辑：程序博客网时间：2024/05/16 18:53

@a=(
['a','2','4'],
['b','3','2'],
['c','4','4'],
['d','t','3'],
['a','4','5'],
['c','3','5']
);
判断第一个字段如果出现相同的就吧后面的两个字段加一起
想要的结果是这样的
a，24， 45
b ，3， 2
c ，43， 45
d ，t， 3

[ 本帖最后由 luesfeng 于 2009-10-3 13:54 编辑 ]

CODE:

my %h = ();
for(@a){
push @{$h{$_->[0]}},$_->[1].$_->[2];
}

for(sort keys %h){
print "$_ @{$h{$_}}/n";
}

CODE:

C:/file>perl 5.pl
a 24 45
b 32
c 44 35
d t3

记录：
往事(376086596) 20:53:46:
1楼发表于 2009-10-3 13:13

@a=(
['a','2','4'],
['b','3','2'],
['c','4','4'],
['d','t','3'],
['a','4','5'],
['c','3','5']
);

判断第一个字段如果出现相同的就吧后面的两个字段加一起
想要的结果是这样的
a，24， 45
b ，3， 2
c ，43， 45
d ，t， 3

[ 本帖最后由 luesfeng 于 2009-10-3 13:54 编辑 ]

往事(376086596) 20:54:01:
2楼发表于 2009-10-3 14:34

[Copy to clipboard] [ - ]
CODE:
my %h = ();
for(@a){
push @{$h{$_->[0]}},$_->[1].$_->[2];
}

for(sort keys %h){
print "$_ @{$h{$_}}/n";
}

[Copy to clipboard] [ - ]
CODE:
C:/file>perl 5.pl
a 24 45
b 32
c 44 35
d t3