CU上一道题，利用perl求和

请问如何求和？

1. a 2 
2. a 3 
3. a 4 
4. b 4 
5. b 5 
6. c 6 
7. d 4 
8. d 1 

相同的字母求和。

直接上代码哦，

1. #!/bin/env perl 
2.  
3. use strict "subs"; 
4. use List::Util qw/sum/; 
5.  
6. my %hash = (); 
7.  
8. open my $file,'<','a.txt' or die "$!\n"; 
9.  
10. while (<$file>) { 
11.        chomp; 
12.        my @array = split; 
13.        $hash{$array[0]} = [] unless exists $hash{$array[0]}; 
14.        push @{$hash{$array[0]}},$array[1]; 
15. } 
16.  
17. close $file; 
18.  
19. for my $str (sort keys %hash) { 
20.     my @tmp_array = @{$hash{$str}}; 
21.     printf "%-3s",$str; 
22.     printf sum @tmp_array; 
23.     printf "\n"; 
24. } 

output:

1. [root@rhel172_16_3_248 henry]# perl a.pl 
2. a  9 
3. b  9 
4. c  6 
5. d  5 

 本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/699174，如需转载请自行联系原作者