如何通過哈希名稱對散列數組進行排序？

Question

我想用散列鍵對散列數組進行排序，我怎麼能在Perl中做到這一點？ 結構創建這樣的：

push (@{$structure[$endpoint][1]}, \%temp_hash);
%temp_hash是一個簡單的散列與key->value。 現在我想作爲排序依據的哈希鍵數組，還有在每個哈希只有一個鍵 - >價值......它一直在爭取2小時已經和我放棄了..

Answer 1

嘗試

@sorted = sort { (keys %$a)[0] cmp (keys %$b)[0] } @{$structure[$endpoint][1]}; 

根據每個散列的第一個（唯一）鍵排序數組的元素（它們是散列引用）。如果鍵是數字，則使用<=>。

測試代碼：

%a = ('a' => 1); 
%b = ('zz' => 2); 
%c = ('g' => 3); 
@arr = (\%a, \%b, \%c); 

print "Unsorted\n"; 
for (@arr) 
{ 
    printf "%s\n",((keys %$_)[0]); 
} 

@sorted = sort { (keys %$a)[0] cmp (keys %$b)[0] } @arr; 

print "\nSorted\n"; 
for (@sorted) 
{ 
    printf "%s\n",((keys %$_)[0]); 
}