Deprecated: Assigning the return value of new by reference is deprecated in /home/users/1/lolipop.jp-dp07276078/web/blog/wp/wp-includes/cache.php on line 36

Deprecated: Assigning the return value of new by reference is deprecated in /home/users/1/lolipop.jp-dp07276078/web/blog/wp/wp-includes/query.php on line 21

Deprecated: Assigning the return value of new by reference is deprecated in /home/users/1/lolipop.jp-dp07276078/web/blog/wp/wp-includes/theme.php on line 508
blog.cori95.net : Perl

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);
}


はてなブックマークに追加! この記事をLivedoorクリップ! Yahoo!ブックマークに追加! del.icio.usに追加! ニフティクリップに追加! Buzzurlに追加! このページを POOKMARK Airlines の行き先に登録する BlogPeople Instant Bookmark に追加! newsing it!に追加! PingKingポッケに追加!

HTML convert time: 0.064 sec. Powered by WordPress ME