ふたつの並べ替えを同じように行うには

解決済

質問者：nakisan2011_12
質問日時：2013/04/03 04:44
回答数：2件

たとえば、

$out[0] = "いぬ";
$out[1] = "もりくぼしょうたろう";
$out[2] = "うさぎさん";
$out[3] = "からす";
$out[4] = "ねこ";

という @out を用意して以下のようにすると、

my @sorted = sort { length($b) <=> length($a) } @out;

長さでソートが行われます。おそらく長い順に並び替えが行われるので

$sorted[0] = "もりくぼしょうたろう";
$sorted[1] = "うさぎさん";
$sorted[2] = "からす";
$sorted[3] = "いぬ";
$sorted[4] = "ねこ";

となると思います。

ここからが質問なのですが、
@out の他にもうひとつ @out と同じ数の変数を用意して、

$out_hitokoto[0] = "わんわん";
$out_hitokoto[1] = "いくぜ！相棒！";
$out_hitokoto[2] = "ぴょんぴょん";
$out_hitokoto[3] = "カァーカァー";
$out_hitokoto[4] = "にゃにゃーん";

@out_hitokoto は @out と対応しています。しかし、@outをソートすれば、
対応している@out_hitokotoも並べ替えを行わなければなりません。

ハッシュ変数はある事情から使えません。

なにかよい方法はないでしょうか？

できれば、

my @sorted = sort { length($b) <=> length($a) } @out;

の次の文章で@out_hitokotoに変化を起こさせたいのですが。

みなさんは、どうしますか？