ファイルの日付取得

質問

お世話になります。
Perl/CGIで悩んでいるところがあり質問させていただきに参りました。

サーバ上の、とあるフォルダに下にある.htmlファイルの一覧を表示・リンクし、またその各ファイルの最終更新日付を表示したいと思っています。
そこで下記の様な、ソースを書きました。

opendir (DIR,$dir) ;
@files = grep { /\.html$/ } readdir DIR;
close DIR;

foreach $filename (@files){

$modtime = (stat($filename))[9] ; #
($sec, $min, $hour, $mday, $mon, $year) = localtime($modtime);
$year = $year + 1900;
$mon= $mon + 1;

print "<a href=html/$filename>$filename</a>［作成日：$year 年$mon月$mday日$hour時$min分$sec秒］<P>\n";
}

これを実行すると、複数ファイルのうち、１つのファイルだけが、なぜか正常に表示され、あとのファイルはすべて
「1970 年1月1日9時0分0秒」となってしまいます。
これはどうしてなんでしょうか？？

分かる方がいらっしゃいましたら、ご教授の程、よろしくお願いします。

環境：Windows 2000 Server,IIS,ActivePerl

回答No.1

moon_piyo · ベストアンサー

カレントディレクトリの下の $filename の情報を取得しようとしているのでは？
正常なファイル名はカレントディレクトリにも存在しているから取得できてるのかも

さて
$modtime = (stat($filename))[9] ;
↓
$modtime = (stat("$dir\\$filename"))[9] ;

ではどうでしょうか

お礼

返答ありがとうございます。

まさにそのとおりでした！
ありがとうございました。