在Perl中，我想按值排序哈希的键，数值：
{
five => 5
ten => 10
one => 1
four => 4
}
@H_
502_4@
生成两个数组：
(1,4,5,10) and (one,four,five,ten)
@H_
502_4@然后我想对值数组进行规范化，使数字是顺序的：
(1,2,3,4)
@H_
502_4@我该如何做？
首先按键关联值排序。然后
获取值(例如通过使用散列片)。
my @keys = sort { $h{$a} <=> $h{$b} } keys(%h);
my @vals = @h{@keys};
@H_
502_4@或者如果你有一个散列引用。
my @keys = sort { $h->{$a} <=> $h->{$b} } keys(%$h);
my @vals = @{$h}{@keys};
