続きは・・・
サンプル：ファイルの更新日を取得する
localtime関数を用いて、ファイルの更新日時を取得して表示します。
stat関数の9番目の要素で最終更新時刻取得、localtime関数で、ローカル時間に変換
プログラム例１では、カレントディレクトリにあるtest.txtの更新日時を表示しています。ls コマンドのものと一致しています。
プログラム例
#!/usr/bin/perl
$file = "./test.txt";
print $file . "の更新日時の取得をします。" , "\n";
$modtime = (stat($file))[9] ; # $fileはファイル名
($sec, $min, $hour, $mday, $mon, $year) = localtime($modtime); #localtimeで現地時間に変換
$year = $year + 1900;
$mon= $mon + 1;
print "［作成日：$year 年$mon月$mday日$hour時$min分$sec秒］" , "\n";
実行結果
[it-engineer@home1 perl]# ls -l test.txt
-rw-rw-r-- 1 it-engineer it-engineer 0 5月 31 23:35 test.txt
[it-engineer@home1 perl]# perl 20070604-2.pl
./test.txtの更新日時の取得をします。
［作成日：2007 年5月31日23時35分2秒］
[it-engineer@home1 perl]#
