关于散列读取文件

khandielas

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

open CHENGJI, 'chengji.log';
local $/;
$_ = <CHENGJI>;
s/[A-Za-z]+//g;
my %chengji = reverse split;

my @k = reverse sort {$a<=>$b} keys %chengji;
foreach (0..4) {
   print "$chengji{$k[$_]} $k[$_]\n";
}

打印结果
6 99
2 90
1 88
3 85
4 70

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