Perl localtime()

 
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
}