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へ戻る
このページに記載の内容は、必ずしも正しいとは限りません。ご注意下さい。
製作者にししへのご連絡は、メールなどでお送り下さい。
どのページへもリンクは歓迎します。
Copyright © 2004-2006 Fumihiro Nishimura.(Nishishi) All rights reserved.
{ $a cmp $b }
とすれば良い。文字列のソートに関しては、「配列の中身を降順・昇順にソートする」を参照して下さい。