Perl の localtime 関数メモ

# ある dir のファイル名を取得
my @files = <./dir/*>;


foreach my $file (@files) { # 各ファイルについて
    # $file の更新日時を取得
    my ($sec, $min, $hour, $mday, 
        $mon, $year, $wday, $yday, 
        $isdst) = localtime((stat $file)[9]);


    # 年と月を暦の数値に合わせる
    $year += 1900;
    $mon += 1;


    my $format = "%4d/%02d/%02d %02d:%02d:%02d";
    my $time_stomp = sprintf $format, $year, $mon, $mday, $hour, $min, $sec;
    print "$file\t$time_stomp\n";
    # -> file_name	YYYY/MM/DD hh:mm:ss
}

#Perl

SN 2013/06/26 23:42:45

Archives > 20130622024241_localtime.html