特定ディレクトリの最新画像を表示する

締切済

質問者：orange-nic
質問日時：2007/08/23 23:01
回答数：1件

　特定ディレクトリにアップロードされた、一番新しいタイムスタンプのファイルを自動的に表示させるCGIを探しています。

　使用目的は、携帯電話などから投稿した日記に画像が添付されていた場合、そこの最新画像を別ページで表示させる、というものです。

　ご存知の方がいらっしゃいましたら、是非教えてください。よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： ja330
回答日時：2007/08/24 03:55

Perlで良かったでしょうか？

良いやり方かどうかは分かりませんが、サンプルを書いてみました。

#!/usr/local/bin/perl　　←環境に合わせて下さい。

$folder = './images';　　# 画像フォルダの場所
$gettime = 0;　　# 最終更新日時初期値

opendir(IN, $folder);
while ($file = readdir(IN)) {
if ($file eq "." or $file eq "..") { next }
@fileinfo = stat("$folder/$file");
if ($gettime <= $fileinfo[9]) {　　# $fileinfo[9]が最終更新時刻
$gettime = $fileinfo[9];
$newfile = $file;　　# 最終更新時刻が新しければファイル名を記録
}
}
closedir(IN);

#// HTML出力
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "</head><body>\n";

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($gettime);
$date = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday);
$time = sprintf("%02d時%02d分%02d秒", $hour, $min, $sec);

print "最新ファイル「$newfile」の最終更新日時は<br>「$date $time」です。<br>\n";
print "<img src=\"$folder/$newfile\">\n";

print "</body></html>\n";
exit;

注）上記だと同時刻の場合は後に参照したファイルが最新となります。