2006年1月26日(木) 13時21分39秒 [Perl/CGI]

Perlでファイルの最終更新日時を得るには

Perlプログラム内で、特定のファイルの最終更新日時を得たい場合。
statを使うと、手軽にファイルの最終更新日時を取得することができます。

statというのは、UNIXのstat構造体の値を返してくれるものです。特に何かモジュールを呼んで使ったりする必要はありません。
10番目にファイルの最終更新日時が返されるので、上記では10番目の値だけ（ [9] ）を取り出しています。

これで（上記の例の場合）、変数$lastmodifiedの中にファイルの最終更新日時が入るわけですが、このままでは、1138248689みたいな数値です。
これは、その他の時刻を扱うときと同様、localtime($lastmodified) みたいな感じで、年月日時分秒に分割して適当に使いましょう。

ちなみに、8番目にはファイルサイズが返されるので、

…と書いてやると、変数$filesizeに、ファイルサイズが入ります。

（参考）Perl/CGI逆引き大全 600の極意

この本の、pp.83～84あたりに解説されてます。