求合并一個數(shù)組的方法

luesfeng

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

判斷第一個字段 如果出現(xiàn)相同的 就吧后面的兩個字段加一起
想要的結(jié)果是這樣的
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. }
   

復(fù)制代碼

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

復(fù)制代碼

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

luesfeng

原帖由 hitsubunnu 于 2009-10-3 14:34 發(fā)表

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

呃，寫了一個很繁瑣的程序，程序內(nèi)容如下：
=============================================================
#!/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 發(fā)表
@a=(
['a','2','4'],
['b','3','2'],
['c','4','4'],
['d','t','3'],
['a','4','5'],
['c','3','5']
);
判斷第一個字段 如果出現(xiàn)相同的 就吧后面的兩個字段加一起
想要的結(jié)果是這樣的
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"; }