排序哈希

Question

遇到麻煩試圖理清基於散列值散列的數組引用

的數組引用，數據結構是這樣的：

my %usera = (name => 'tom', 
      weight=> 10); 
my %userb = (name => 'harry', 
      weight=> 1); 
my %userc = (name => 'peter', 
      weight=> 5); 
my $users = []; 
push(@$users,\%usera,\%userb,\%userc); 

我想重量對結果進行排序所以它會按照「湯姆，彼得，哈里」的順序回來，但我沒有很多運氣。我試過：

for my $user (sort{ $users->[$a]{'Weight'} <=> $users->[$b]{'Weight'} } @$users){ 
    ..... 
} 

我認爲可能有效，但沒有愛在那裏。

有什麼想法？

TIA！

Answer 1

如果要排序@$users，您的流水線數據進入元素不標方面。因此，索引到$users->[$x]是完全不必要的，更不用說錯誤。如果您用過warnings，你會看到你的Use of reference "HASH(0x2c201e0)" as array index at ...排序更改爲：

use warnings; 

foreach my $user (sort { $b->{weight} <=> $a->{weight} } @$users) { 
    ... 
} 

此外，作爲地方提及Perl的哈希值是區分大小寫的。 $h->{Weight}和$h->{weight}是兩個不同的散列槽。

Answer 2

sort函數接收一個可根據需要進行調整的塊。兩個隱式變量（$a和$b）用於指示排序的'左'和'右'值。因此，下面的代碼應該做你需要的東西：

my @sorted = sort { $b->{weight} <=> $a->{weight} } @$users; 

，這將通過名稱排序（注意cmp運營商，而不是飛船運營商）：

my @sorted = sort { $a->{name} cmp $b->{name} } @$users; 

Answer 3

Perl是區分大小寫。嘗試：

foreach my $user (sort { $users->[$a]{'weight'} <=> $users->[$b]{'weight'} } @$users) { 
..... 
}