求合并一个数组的方法

luesfeng

@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 编辑 ]

hitsubunnu

1. 
   
2. my %h = ();
   
3. for(@a){
   
4.     push @{$h{$_->[0]}},$_->[1].$_->[2];
   
5. }
   
6. 
   
7. for(sort keys %h){
   
8.     print "$_ @{$h{$_}}\n";
   
9. }
   

复制代码

1. 
   
2. C:\file>perl 5.pl
   
3. a 24 45
   
4. b 32
   
5. c 44 35
   
6. d t3
   

复制代码

[ 本帖最后由 hitsubunnu 于 2009-10-3 14:41 编辑 ]

luesfeng

原帖由 hitsubunnu 于 2009-10-3 14:34 发表

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

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



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

谢谢 你了

HongLian3

呃，写了一个很繁琐的程序，程序内容如下：
=============================================================
#!/usr/local/bin/perl
use warnings;
use strict;

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

my $n = scalar(@a) - 1;

for($i=0;$i<=n;$i++)
{
  for(my $j=($i+1);$j<=$n;$j++)
  {
    if($a[$i] -> [0] eq $a[$j] -> [0])
    {
      $a[$i] -> [1] = $a[$i] -> [1] . $a[$j] -> [1];
      $a[$i] -> [2] = $a[$i] -> [2] . $a[$j] -> [2];   
      splice(@a,$j,1);
      $n = $n - 1;  
    }
  }
}

$n = scalar(@a) - 1;

for($i=0;$i<=n;$i++)
{
  print $a[$i] -> [0] . ", ";
  print $a[$i] -> [1] . ", ";  
  print $a[$i] -> [0] . "\n";
}
=============================================================
程序输出：
a, 24, 45
b, 3, 2
c, 43, 45
d, t, 3

再试试，改简单点，呼。

toniz

原帖由 luesfeng 于 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  ...

练练手，呵呵。

@a=( ['a','2','4'], ['b','3','2'], ['c','4','4'], ['d','t','3'], ['a','4','5'], ['c','3','5'] ); my %h = (); for(@a){         $h{$_->[0]} = [$h{$_->[0]}->[0].$_->[1],$h{$_->[0]}->[1].$_->[2]]; } for(sort keys %h){     print "$_ $h{$_}->[0] $h{$_}->[1] \n"; }