关于散列读取文件

churchmice

1. 
   
2. %hash_old=<OPEN>;
   

复制代码

这种牛逼的写法谁教你的？

churchmice

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my $log = shift @ARGV || "chengji.log";
   
6. open my $file,"<",$log or die "Fail to open $log $!";
   
7. my %score;
   
8. while (<$file>){
   
9.         next if /^(id chengji)/;
   
10.         my ($id,$score) = split /\s+/;
    
11.         $score{$id} = $score;
    
12. }
    
13. print "$_ score $score{$_}\n" foreach ( ( sort { $score{$b} <=> $score{$a} } keys %score)[0..4])
    

复制代码

churchmice

受教了
又可以少码些字了
ps:水木perl版版主也是你？

churchmice

原来这样啊
我前几天上水木发现居然有个perl版所以赶忙申请了个ID
看到版主很熟悉

churchmice

确实
以前我们学校还有个perl版
后来改版成complang了

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 ...

甚为拉风