perl hash 按值排序 升序 降序

降序

foreach my $key (sort  { $hashT{$b} <=> $hashT{$a} } keys %hashT){
    printf("%s/t%s/n",$key, $hashT{$key});
}

升序

foreach my $key (sort  { $hashT{$a} <=> $hashT{$b} } keys %hashT){
    printf("%s/t%s/n",$key, $hashT{$key});
}

Attention：只是a和b互换了位置