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