Perl Time::Local::timelocalで起きている2020年問題をなんとか直した話 - Qiita

Perl Time::Local::timelocalで起きている2020年問題をなんとか直した話 - Qiita

my ($sec, $min, $hour, $mday, $month, $year) = (0, 0, 0, 1, 1, 1970); # Perlでは月は0から数えるの...概要を表示 my ($sec, $min, $hour, $mday, $month, $year) = (0, 0, 0, 1, 1, 1970); # Perlでは月は0から数えるので1引く $month -= 1; # Perlでは年は1900年から数えるので1900引く $year -= 1900; my $unixtime = timelocal($sec, $min, $hour, $mday, $month, $year); print localtime($unixtime); # 1970年1月1日 0時0分0秒 を、返すはずだった・・・

• perl
• あとで読む