perl hash 按值排序 升序 降序

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

>>阅读原文<<