perl如何提取学生最高科目的成绩并排序

chenjiali1

考试了拿到了成绩单，想汇总一下：
王杰  81  语文
王杰  95  数学
王杰  54  政治
张帅  78  语文
张帅  71  数学
张帅  87  政治
李三  96  语文
李三  92  数学
李三  80  政治



我想要的结果如下：
王杰  95  数学
张帅  87  政治
李三  96  语文
我不知道怎么对每个人的成绩取最大值，请高手指点。如果能同时告诉下如何提取最高成绩并把每个学生成绩按照从高到底按照数组排序实现更好，万分感谢！

rubyish

1. #!/usr/bin/perl
   
2. 
   
3. my %C;
   
4. while (<DATA>) {
   
5.     my ( $n, $s ) = split;
   
6.     if ( !$C{$n}{s} or $C{$n}{s} < $s ) {
   
7.         @{ $C{$n} }{qw/s d/} = ( $s, $_ );
   
8.     }
   
9. }
   
10. 
    
11. print map $C{$_}{d}, sort { $C{$b}{s} <=> $C{$a}{s} } keys %C;
    
12. print '-' x 14, "\n";
    
13. print map $C{$_}{d}, keys %C;
    
14. __DATA__
    
15. 王杰  81  语文
    
16. 王杰  95  数学
    
17. 王杰  54  政治
    
18. 张帅  78  语文
    
19. 张帅  71  数学
    
20. 张帅  87  政治
    
21. 李三  96  语文
    
22. 李三  92  数学
    
23. 李三  80  政治

复制代码

1. 李三  96  语文
   
2. 王杰  95  数学
   
3. 张帅  87  政治
   
4. --------------
   
5. 王杰  95  数学
   
6. 张帅  87  政治
   
7. 李三  96  语文
   

复制代码

rubyish

1. #!/usr/bin/perl
   
2. my %C;
   
3. while (<DATA>) {
   
4.     my ( $n, $s ) = split;
   
5.     $C{$n}{$_} = $s;
   
6. }
   
7. 
   
8. for my $s ( values %C ) {
   
9.     print sort { $s->{$b} <=> $s->{$a} } keys $s;
   
10. }
    
11. 
    
12. __DATA__
    
13. 王杰  81  语文
    
14. 王杰  95  数学
    
15. 王杰  54  政治
    
16. 张帅  78  语文
    
17. 张帅  71  数学
    
18. 张帅  87  政治
    
19. 李三  96  语文
    
20. 李三  92  数学
    
21. 李三  80  政治

复制代码

1. 王杰  95  数学
   
2. 王杰  81  语文
   
3. 王杰  54  政治
   
4. 李三  96  语文
   
5. 李三  92  数学
   
6. 李三  80  政治
   
7. 张帅  87  政治
   
8. 张帅  78  语文
   
9. 张帅  71  数学
   

复制代码

wenhq

高手很晚了哈

grshrd49

回复 3# rubyish


$C{$n}{$_} = $s;
求解释啊！哈希赋值嘛？

lhohoz

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my %hash;
   
6. 
   
7. while (<>) {
   
8.     my ($name, $total, $type) = split;
   
9.     push @{ $hash{$name}{$total} }, $type;
   
10. }
    
11. 
    
12. foreach my $name (keys %hash ) {
    
13.     foreach my $total (sort { $b <=> $a } keys %{ $hash{$name} } ) {
    
14.             print "$name $total $_\n" for @{ $hash{$name}{$total} };
    
15.     }
    
16. }
    

复制代码

mcshell

回复 3# rubyish

   学习这种思路了~~
    大神睡的好晚  

只是一个红薯

rubyish 犀利

rubyish 发表于 2013-06-26 01:45

rubyish

回复 5# grshrd49


    是哈希赋值~

1. 张帅 => { '张帅  87  政治' => 87, '张帅  71  数学' => 71, '张帅  78  语文' => 78 },
   
2. 李三 => { '李三  92  数学' => 92, '李三  96  语文' => 96, '李三  80  政治' => 80 },
   
3. 王杰 => { '王杰  54  政治' => 54, '王杰  81  语文' => 81, '王杰  95  数学' => 95 }

复制代码

rubyish

只是一个红薯 发表于 2013-06-26 07:07
rubyish 犀利

犀利 == silly ? {:3_202:}