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

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秒 を、返すはずだった・・・

[prozorec]

バグと言えばバグだが、2000年問題を契機に、曖昧な値を与えることは後世に問題が発生する可能性があることが分かり、このような2桁の値を使うことはまれなので、この問題は顕在化しなかったのだろう

[shimooka]

うひょ。。。