Perl_哈希排序_sort
對哈希的值排序
my %hash;
$hash{"a"}=1;
$hash{"b"}=2;
$hash{"c"}=21;
$hash{"d"}=4;
$hash{"e"}=13;
$hash{"f"}=12;
my @val =sort values %hash;
foreach (@val)
{
print $_."\n";
}
#1
#12
#13
#2
#21
#4
#上面的方法得不到按值數字大小排列的結果。
my @key =sort {$hash{$a} <=> $hash{$b}} keys %hash;
#上面的@key裏面放的是按哈希值大小排序後對應的鍵。
my @d;
foreach my $a(@key)
{
$d[$a]=$hash{$a};
print $d[$a]."\n";
}
#1
#2
#4
#12
#13
#21
#這樣就得到了按數字從小到大排列的結果，想要從大到小的，只需要把$a和$b的位置換一下，如下
#my @key =sort {$hash{$b} <=> $hash{$a}} keys %hash;
對哈希的鍵排序
my %hash;
$hash{"a"}=1;
$hash{"b"}=2;
$hash{"c"}=21;
$hash{"d"}=4;
$hash{"e"}=13;
$hash{"f"}=12;
my @val =sort keys %hash;
#上面的@key裏面放的是按哈希鍵排序後對應的鍵。
my @d;
foreach my $a(@key)
{
$d[$a]=$hash{$a};
print $d[$a]."\n";
}
#a
#b
#c
#d
#e
#f