perlにて更新日付を取得したのですが・・・

ふむ～？ 1999/12/11(土) 21:07:25
Perlにてファイルの更新日付を取得したいのですが・・・

#-----省略-----

#取り出し対象フォルダ
$dir = 'test';

opendir(DIR, $dir);
foreach $file (grep { !/^\. } readdir(DIR)){
     push(@files, (stat("$dir/$file"))[10] . " $dir/$file");
}

closedir(DIR);

#-----以下略-----
と、して取り出した場合なのですが・・・
すべて結果が「1970年1月1日(木）１時１分」とでてしまうのですが？

ちなみに作成日は「1999年12月11日」です。

どこがいけないのでしょうか？
教えてください、お願いします。

あと、statの[9]とか[10]はどういう意味なのでしょうか？

aqua-J 1999/12/11(土) 23:14:41
＞(stat("$dir/$file"))[10]
更新時刻ならば、(stat("$dir/$file"))[9]

＞あと、statの[9]とか[10]はどういう意味なのでしょうか？
http://www.tohoho-web.com/wwwperl2.htm#statに
書かれてる情報では、不足でしょうか。

ふむ～？ 1999/12/12(日) 03:09:53
[[解決]]
aqua-Jレスありがとうございます。

つまり・・・

$dir = "test";
opendir(DIR, $dir);
foreach $file (grep { !/^\./ }readdir(DIR)){
push(@files, (stat("$dir/$file"))[9] . " $dir/$file");
$time_data = localtime((stat("$dir/$file"))[9]);
@_ = localtime((stat("$dir/$file"))[9]);
}
closedir(DIR);

print "Content-type: text・・・＜略＞

print "<P>$time_data\n";　←　Ａ
print "<P>@_ \n";　　　　　←　Ｂ

のようにして
Ａなら「Sat Dec 11 01:03:20 1999」となり
Ｂなら「20 3 1 11 11 99 6 344 0」とうまくいきました。

>http://www.tohoho-web.com/wwwperl2.htm#statに
>書かれてる情報では、不足でしょうか。

ごもっとも（笑）

どうやらミスは配列からの取り出しの際ミスってました（笑）
だから1970/01/01　1:01などとなっていました。