カウンター
指定ディレクトリ以下のファイル名と更新時間のリスト取得
久々に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);
}
