Perl/日付・時間処理/その他のバックアップ(No.1)

日付処理

 use POSIX 'strftime';
 
 my $now = strftime "%Y/%m/%d %H:%M:%S", localtime;
 print $now, "\n";

 use Time::Local
 $time = timelocal($sec,$min,$hour,$mday,$mon,$year); # 2000年7月 => $year=100 $mon=6

 use Date::Simple;
 
 my $date = Date::Simple->new();
 print $date->format('%Y/%m/%d'), "\n";