关于一个累加的问题

nanshanjin

回复 8# b114213903



   
$sum->{$key}是什么意思？

815138698

回复 10# nanshanjin

哈希的引用
   

清泉一边

1. #!/usr/bin/perl  -w
   
2. use strict;
   
3. my %hash;
   
4. while (<DATA>){
   
5. my( $k,$v) = split;
   
6. push @{$hash{$k}} ,$v;
   
7. }
   
8. foreach my $k(sort keys %hash){
   
9. print "$k\t";
   
10. my $sum = 0;
    
11. $sum += $_ for @{$hash{$k}};
    
12. print "$sum\n";
    
13. }
    
14. 
    
15. 
    
16. __DATA__
    
17. 01   2
    
18. 01   4
    
19. 02  1
    
20. 02  3
    
21. 03 6

复制代码

回复 1# nanshanjin


   

sunzhiguolu

1. perl -alne "{$h{$F[0]}+=$F[-1]}END{print \"$_ $h{$_}\" for keys %h}" ur.txt

复制代码