2006年1月26日(木) 13時21分39秒 [Perl/CGI]
Perlでファイルの最終更新日時を得るには
Perlプログラム内で、特定のファイルの最終更新日時を得たい場合。
statを使うと、手軽にファイルの最終更新日時を取得することができます。
my $lastmodified = (stat $filename)[9];
statというのは、UNIXのstat構造体の値を返してくれるものです。特に何かモジュールを呼んで使ったりする必要はありません。
10番目にファイルの最終更新日時が返されるので、上記では10番目の値だけ（ [9] ）を取り出しています。
これで（上記の例の場合）、変数$lastmodifiedの中にファイルの最終更新日時が入るわけですが、このままでは、1138248689みたいな数値です。
これは、その他の時刻を扱うときと同様、localtime($lastmodified) みたいな感じで、年月日時分秒に分割して適当に使いましょう。
ちなみに、8番目にはファイルサイズが返されるので、
…と書いてやると、変数$filesizeに、ファイルサイズが入ります。
この日記へのコメントはお気軽に！ コメント数:0 トラックバック数:1
| « Perlでファイルの存在チェックを簡単に行うには |
前後のエントリ < 旧 ／ 新 > | １月分の記事執筆完了 » |
このエントリーへのトラックバックURLを表示するにはここをクリック
※スパム防止のため、トラックバックURLは別ウインドウで表示します。（JavaScriptが有効でないと表示されません。）
このリストは、次のエントリーを参照しています: Perlでファイルの最終更新日時を得るには:
» ＰＣトラブル from はろーねっと
興味深い内容で、とても楽しく読ませていただきました。 [続きを読む]
トラックバック時刻: 2006年03月04日 08:03
コメント数： 0件