2007/11/06

指定ディレクトリ以下のファイル名と更新時間のリスト取得

久々にperlを書くと,よく忘れるのでちょっとメモしておく。

#!/usr/bin/perl -w

use strict;
use File::Find;
use File::stat;

my $target_dir = ’/home/hoge/foo/’;

my $files = [];
find(sub { push(@$files, $File::Find::name) if(-f); }, $target_dir);    # ファイル一覧取得

foreach my $filename (@$files) {
    my ($sec, $min, $hour, $day, $month, $year) = localtime(stat($filename)->mtime);    # 更新時刻取得
    printf(”%s,%04d-%02d-%02d %02d:%02d:%02d\n”, $filename, $year + 1900, $month + 1, $day, $hour, $min, $sec);
}


Posted at 19:22:45|個別ページPerlトラックバックURL||
はてなブックマークに追加! この記事をLivedoorクリップ! Yahoo!ブックマークに追加! del.icio.usに追加! ニフティクリップに追加! Buzzurlに追加! このページを POOKMARK Airlines の行き先に登録する BlogPeople Instant Bookmark に追加! newsing it!に追加! PingKingポッケに追加!

トラックバックURL

トラックバック URL :

コメント »

この記事にはまだコメントがついていません。

コメントをどうぞ

HTML convert time: 0.162 sec. Powered by WordPress ME