open(IN,"$fname") || die('FILE OPEN ERROR!');
@file = sort { $b cmp $a } <IN>;
close(IN);
open(IN,"$fname") || die('FILE OPEN ERROR!');
@file = <IN>;
close(IN);
にししの Perl/CGI Tips ふぁくとりー TOPへ戻る
このページに記載の内容は、必ずしも正しいとは限りません。ご注意下さい。
もっと良い方法がありましたら、ぜひ、教えて頂けるとありがたいです。
製作者にししへのご連絡は、メールなどでお送り下さい。匿名のコメントも送信できます。
どのページへもリンクは歓迎します。複製・転載はご遠慮下さい。
| blog SEO tool |
Copyright © 2004-2006 Fumihiro-Nishimura.(Nishishi) All rights reserved.
{ $a cmp $b }とすれば良い。文字列のソートに関しては、「配列の中身を降順・昇順にソートする」を参照して下さい。