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

rubyish

回复 6# lhohoz


    大神

1. $hash{$name}{$total} = $type;

复制代码

《这样的 maybe 有一个麻烦》

王杰  81  语文
王杰  81  数学

只是一个红薯

{:3_196:} 无关英文..

rubyish 发表于 2013-06-27 01:51
犀利 == silly ?

lhohoz

回复 11# rubyish


    多谢高手纠正，已更正:wink:

公孙孟

是不是应该办个程序大赛 出中等难度题 规定时间内贴出代码 大神不准参与

Kotokz

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

版本不同？我必须改成下面这样才行

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  政治

复制代码

seufy88

回复 7# mcshell


    你也是,大神,起的好晚.我觉得还是向你学习

rubyish

回复 15# Kotokz


    向你学习

Kotokz

rubyish 发表于 2013-08-17 18:15
回复 15# Kotokz

orz, 努力向您学习中