perl hash 排序

对value排序，数值型

foreach my $key (sort {$hash{$b} <=> $hash{$a}} keys %hash){

push(@hash, $key);

}

 

对value排序，字符型

foreach my $key (sort {$hash{$b} cmp $hash{$a}} keys %hash){

push(@hash, $key);

}

 

对key排序

foreach (sort keys %unique_sort){ 

print CHROMOSOME_DISTRIBUTION_UNIQUE $_."/t".$unique_sort{$_}."/n";

}