关于散列读取文件

khandielas

原帖由 ly5066113 于 2008-8-27 13:15 发表


很明显不对，90分的有2个。

是，忘了score可以不是unique的， 需要象churchmice那样sort value

#!/usr/bin/env perl
use strict;

local $/;
$_ = <>;
s/[A-Za-z]+//g;
my %chengji = split;
print "$_ $chengji{$_}\n" foreach ( ( sort { $chengji{$b}<=>$chengji{$a} } keys %chengji)[0..4] );

./test_hash.pl chengji.log
6 99
2 90
5 90
1 88
3 85

doiob

感觉lz和那位面试时say "my special long is fuck do computer"的高人有一拼。

sheenshine

原帖由 doiob 于 2008-8-28 14:05 发表
感觉lz和那位面试时say "my special long is fuck do computer"的高人有一拼。

差点没看懂，你怎么听懂的。。。。

hitsubunnu

1. 
   
2. 
   
3. print sort {(split(/ /,$b))[1] <=> (split(/ /,$a))[1]} <DATA>;
   
4. 
   
5. __END__
   
6. 1 88
   
7. 2 90
   
8. 3 85
   
9. 4 70
   
10. 5 90
    
11. 6 99
    
12. 7 85
    
13. 8 65
    
14. 9 70
    
15. 10 66
    
16. 
    

复制代码

1. 
   
2. 
   
3. 6 99
   
4. 2 90
   
5. 5 90
   
6. 1 88
   
7. 3 85
   
8. 7 85
   
9. 4 70
   
10. 9 70
    
11. 10 66
    
12. 8 65
    
13. 
    

复制代码

churchmice

原帖由 hitsubunnu 于 2008-8-28 15:36 发表


print sort {(split(/ /,$b))[1]  (split(/ /,$a))[1]} ;

__END__
1 88
2 90
3 85
4 70
5 90
6 99
7 85
8 65
9 70
10 66





6 99
2 90
5 90
1 88
3 85
7 85
4 70
9 70
10 6 ...

甚为拉风

cobrawgl

my special long is fuck do computer

xiaoyu9805119

都挺牛b的，呵呵

hitsubunnu

say "my special long is fuck do computer"

俺の特長はパソコンをファックすることだ

forlorngenius

这fuck语写得好长啊