关于一个累加的问题

清泉一边

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