Perlのハッシュ変数のソートについて

ハッシュ変数の並べ替えをやりたいです。ただ、値の長さでソートをしたいのです。

my %tan_syouhin = (

'佐賀' => 'あいうえお',
'滋賀' => 'かき',
'無我' => 'さしすせそそそ',
'千賀' => 'うりるら',
'日我' => 'ぜるだんぽ'

);

というハッシュ変数があって「値の長さ」でソートするにはどうしたら良いでしょうか？

No.3 ベストアンサー 回答者： Ogre7077 回答日時： 2013/05/29 18:16

こうですかね。

勘違いしていたらすみません

ハッシュの値でソートしたキー配列
my %s = ( ... );
my @v = sort { length $s{$b} <=> length $s{$a} } keys %s;

キー配列からハッシュを参照
foreach (@v) {
printf "%s => %s\n", $_, $s{$_};
}

この回答へのお礼

ありがとうございました！　さっそく組み込んでみます！！

お礼日時：2013/05/29 18:52

No.2 回答者： Tacosan 回答日時： 2013/05/29 17:13

「データの順序」というものはハッシュでは意味を持たないので, 何をどう並べ替えようとハッシュに入れたらその順序がどうなるかはわかりません.

で, やっぱり「何をソートしたいのか」がわからん. 「どういう結果を期待しているのか」も書いてくれないし....

この回答への補足

説明が下手ですいません。

foreach　で処理を回したい時、

'無我' => 'さしすせそそそ',
'日我' => 'ぜるだんぽ',
'佐賀' => 'あいうえお',
'千賀' => 'うりるら',
'滋賀' => 'かき',

という順番で処理がしたいのです。

補足日時：2013/05/29 18:07

No.1 回答者： Tacosan 回答日時： 2013/05/29 16:18

何をソートしたいのでしょうか? つまり, どのような結果を期待しているのでしょうか?

この回答への補足

ハッシュに入っている値の文字列の長さでソートをしたいのです、説明不足ですいません。

その結果をまたハッシュに入れ直したいのですが、その場合は順番はバラバラになるのでしょうか？

補足日時：2013/05/29 16:36