Perl_哈希排序_sort

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