perlで｢ﾌｫﾙﾀﾞ内画像一覧を表示する｣をﾌｧｲﾙ名順に並べたいﾌｫﾙﾀﾞ内の画像一覧を表示させようとしています｡ $dir = './images/'; opendir(DIR, "$dir"); while …

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

perlで｢ﾌｫﾙﾀﾞ内画像一覧を表示する｣をﾌｧｲﾙ名順に並べたい

ﾌｫﾙﾀﾞ内の画像一覧を表示させようとしています｡

$dir = './images/';
opendir(DIR, "$dir");
while ($_ = readdir(DIR)) {
if (substr($_,-4,4) eq "\.jpg") { # jpgだけ出力
print<<"EOM";
<li><a href="$dir/$_" class="fb" rel="g1"><IMG SRC="./$dir/$_"></a></li>
EOM
}
}
closedir(DIR);
------------
よく見ると､ﾌｧｲﾙ名順に並んでいませんでした｡(ｱｯﾌﾟした日付順になってる?)
これをﾌｧｲﾙ名順に並べ替えるにはどうしたら良いですか?

●質問者: 匿名質問者
●ｶﾃｺﾞﾘ:ｳｪﾌﾞ制作
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● 匿名回答1号

ﾍﾞｽﾄｱﾝｻｰ

http://stackoverflow.com/questions/436189/how-can-i-read-the-files-in-a-directory-in-sorted-order#answer-436286

匿名質問者さんのｺﾒﾝﾄ
返答ありがとうございます｡やってみましたが､変化なしです｡(並び順が変わらない) また､｢$a <=> $b｣を｢$b <=> $a｣にもしてみましたが動きがありません｡ $dir = './images/'; opendir(DIR, "$dir"); my @files = sort { $b <=> $a } readdir(DIR); while (my $name = shift @files ) { if (substr($_,-4,4) eq "\.jpg") { # jpgだけ出力 print<<"EOM"; <li><a href="$dir/$name" class="fb" rel="g1"><IMG SRC="./$dir/$name"></a></li> EOM }

匿名回答1号さんのｺﾒﾝﾄ
並べ替えた名前が入っているのは $name ですよ｡

匿名質問者さんのｺﾒﾝﾄ
原因わかりました｡画像にｱﾙﾌｧﾍﾞｯﾄが入ってたのでこれでは動かなかっただけでした｡ cmpに変えたら意図していた通りに表示しました｡