[Perl]連想配列のソート - ソースコードライブラリ

%nedan = ( "bag", 15000, "cup", 800, "watch", 6000, "tv", 38000, "camera", 25000 ); print "キー(商品名)で並べ替え\n"; foreach(sort keys %nedan){ printf "%6d = %s\n",$nedan{$_},$_; } print "\n値(値段)で並べ替え\n"; foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan){ printf "%+6s = %6d\n",$_,$nedan{$_}; } 連想配列のソートです。keys %nedanで連想配列のキーを配列として受け取ります。 あとはsort関数に渡してやります。キー名のソートの場合は単純にsort keys %nedanでソートされたキー名を得ることができ