perl-cgi 文字の長さでソートしたい

文字の長さでソートしたいと思っているのですがどのようにすればよいでしょうか?
@word = qw(abc abcd abcdef abc a);
とある場合、
@word = qw(a abc abc abcd abcdef);
という風に並べ替えたいと思っています。
分かる方、教えて下さい。宜しくお願い致します。

No.1 ベストアンサー 回答者： sakusaker7 回答日時： 2006/06/03 00:57

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

細かいこというと、配列要素の長さは最初に一回求めるだけにしておいて
キャッシュした値をソートに使うべきなんでしょうけどその辺は
お楽しみに取っておくということで。

この回答へのお礼

回答いただきありがとうございます。
とても、助かりました！！

お礼日時：2006/06/03 21:13

No.2 回答者： ren10 回答日時： 2006/06/03 08:57

こんなんでどうでしょう？

@word = sort {$a cmp $b} qw(abc abcd abcdef abc a);

この回答へのお礼

回答いただきありがとうございます。
無事、ソートすることができました。

お礼日時：2006/06/03 21:13