perl -- sort函数 [hash按照value排序]

按照hash的value排序 【降序】

use strict;
use strict;
my $i = 0;
my %score = ();
sub by_score {$score{$b} <=> $score{$a}};
while($i < 10000)
{
    $score{$i} = int(rand(200));
    $i++;
}
my @k = sort by_score keys %score;
foreach (@k)
{
    print "$_t$score{$_}n";
}