如何對值進行perl哈希排序並相應地排序鍵（在兩個數組中）？

Question

在Perl中，我想通過值的散列的鍵進行排序，數值：

{ 
    five => 5 
    ten => 10 
    one => 1 
    four => 4 
} 

產生兩個數組：

(1,4,5,10) and (one, four, five, ten) 

然後我想標準化值的數組，使得數是連續的：

(1,2,3,4) 

我該怎麼做？

Answer 1

首先按相關值對鍵進行排序。然後獲取值（例如，通過使用散列片）。

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}; 

Answer 2

my (@nums, @words); 
do { push @nums, shift @$_; 
    push @words, shift @$_; 
    } 
    foreach sort { $a->[0] <=> $b->[0] } 
      map { [ $h->{ $_ }, $_ ] } keys %$h 
    ; 

Answer 3

請參閱標題爲Perl的FAQ條目「（按價值計算，而不是關鍵可選的）我怎麼排序哈希」

http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-a-hash-%28optionally-by-value-instead-of-key%29?

您還可以使用perldoc -q搜索您的計算機上的本地常見問題解答，如perldoc -q sort，這是我如何找到您的答案。

Answer 4

如何對散列進行排序（可選擇按值而不是鍵）？

要對散列進行排序，請從鍵開始。在這個例子中，我們給出了排序函數的關鍵字列表，然後將它們用ASCIIbet進行比較（這可能會受到您的語言環境設置的影響）。輸出列表具有按ASCII順序排列的鍵。一旦我們擁有了密鑰，我們就可以通過它們來創建一個報告，按ASCII順序列出密鑰。

my @keys = sort { $a cmp $b } keys %hash; 

foreach my $key (@keys) { 
    printf "%-20s %6d\n", $key, $hash{$key}; 
} 

雖然我們可以在sort（）塊中獲得更多的花式。我們可以用它們計算一個值，並將該值用作比較，而不是比較鍵。

例如，爲了使我們的報告順序不區分大小寫，我們使用LC比較之前爲小寫字母鍵：

my @keys = sort { lc $a cmp lc $b } keys %hash; 

注：如果計算是昂貴或哈希有很多元素，可以希望查看Schwartzian變換來緩存計算結果。

如果我們想用散列值進行排序，我們使用散列鍵來查找它。我們仍然拿出一個鍵列表，但這次他們按照它們的價值排序。

my @keys = sort { $hash{$a} <=> $hash{$b} } keys %hash; 

從那裏我們可以變得更加複雜。如果散列值相同，我們可以在散列鍵上提供第二排序。

my @keys = sort { 
$hash{$a} <=> $hash{$b} 
or 
"\L$a" cmp "\L$b" 
} keys %hash;