请教一个问题

yiqiume

一些数据：
tag   value
tag1 value1
tag1 vaule2
tag2 value1
tag1 value3
tag2  value2
tag3 value1
.........
我想把同一个tag的value放到一起输出，该怎么办？本来打算用hash，但tag是分段的，想不好怎么push。。或许先用数组push？但数组名和tag应该是统一的，怎么设定？请指教，或许是我走弯路了。。

[ 本帖最后由 yiqiume 于 2009-11-6 10:14 编辑 ]

Perl_Er

你是要这样吗？

1. my %hash;
   
2. while(<DATA>){
   
3.     my @array = split;
   
4.     push @{$hash{$array[0]}},$array[1];
   
5. }
   
6. 
   
7. print Dumper \%hash;
   
8. 
   
9. __DATA__
   
10. tag   value
    
11. tag1 value1
    
12. tag1 vaule2
    
13. tag2 value1
    
14. tag1 value3
    
15. tag2  value2
    
16. tag3 value1

复制代码

Result:

$VAR1 = {
          'tag3' => [
                      'value1'
                    ],
          'tag1' => [
                      'value1',
                      'vaule2',
                      'value3'
                    ],
          'tag2' => [
                      'value1',
                      'value2'
                    ],
          'tag' => [
                     'value'
                   ]
        };

yiqiume

嗨，thx，是的
开始我也用了类似的方法，但忘记加{}分割，结果报错。
多谢。