Perl：ハッシュ値の後の配列の整列

Question

ハッシュ値の後にハッシュ配列をソートする "Perl-ish"方法はありますか？

my @l = ({k1 => "1", k2 => "one"}, {k1 => "2", k2 => "two"}, 
    {k1 => "3", k2 => "three"}); 

foreach (@l) 
{ 
    print "\n" . $_->{k1} . ", " . $_->{k2}; 
} 

私が注文したのは、私が挿入した順序です（他には何が...）。しかし、私はハッシュ値の後でそれを並べ替えると思います。 私はアルゴリズム的な方法を想像することができます。しかし、おそらくすでに存在している機能や何かについて質問しています。

ありがとうございます！

Answer 1

次のようにあなたが行うことができます​​キー、後ろの値によってソートします。

my @sorted = sort { $a->{k1} <=> $b->{k1} } @l; 

変数$aと$bはsortのための特別なVARSを予約されています。あなたのリスト項目が参照である場合、あなたはそのようなものをそのまま使うことができます。 Data::Printerと

出力：

[ 
    [0] { 
     k1 1, 
     k2 "one" 
    }, 
    [1] { 
     k1 2, 
     k2 "two" 
    }, 
    [2] { 
     k1 3, 
     k2 "three" 
    } 
] 

Answer 2

@list = sort { $a->{'k1'} <=> $b->{'k1'} } @l;