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互换了位置