一道shell题，perl解法

题目：

一文件，内容如下

1. zhangsan     80 
2. lisi         81.5 
3. wangwu       93 
4. zhangsan     85 
5. lisi         88 
6. wangwu      97 
7. zhangsan    90 
8. lisi        92 
9. wangwu      88 

要求：

1. 要求输出格式：（average：平均成绩，total：总成绩） 
2. name#######average#######total 
3. zhangsan            xxx                        xxx 
4. lisi                       xxx                        xxx 
5. wangwu             xxx                        xxx 

这个题目都做烂了，原理么一样,上代码：

1. #!/usr/bin/perl -w 
2.  
3. use strict; 
4.  
5. BEGIN { 
6.        eval{ require List::Util; }; 
7.        import List::Util qw/sum/ unless $@; 
8. } 
9.  
10. my %name; 
11.  
12. open my $file,'<','a.txt' or die "$!\n"; 
13.  
14. while ( <$file> ) { 
15.        chomp; 
16.        my @array = split /\s+/; 
17.        $name{$array[0]} = [] unless exists $name{$array[0]}; 
18.        push @{$name{$array[0]}},$array[1]; 
19. } 
20.  
21. close $file; 
22.  
23. print "name#######average#######total\n"; 
24.  
25. for my $name ( sort keys %name ) { 
26.     my @tmp_array = @{$name{$name}}; 
27.     print $name,"\t",sum(@tmp_array)/(scalar @tmp_array),"\t",sum(@tmp_array),"\n"; 
28. } 

output:

1. [root@Xen ~]# perl a.pl 
2. name#######average#######total 
3. lisi    87.1666666666667        261.5 
4. wangwu  92.6666666666667        278 
5. zhangsan        85      255