ハッシュの配列をハッシュ名でソートするにはどうすればよいですか？

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