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

 @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