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

質問

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

回答No.1

sakusaker7 · ベストアンサー

@sorted = sort { length($a) <=> length($b) } @word;
細かいこというと、配列要素の長さは最初に一回求めるだけにしておいて
キャッシュした値をソートに使うべきなんでしょうけどその辺は
お楽しみに取っておくということで。

お礼

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

回答No.2

ren10

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

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

お礼

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