1970 年格式化之前的 Perl 纪元时间

Question

我在 Perl 中格式化和处理纪元 1/1/1970 之前的日期时遇到问题，日期返回为负整数:

my $time=timelocal(0, 0, 0, 1, 1, 1969);
print "$time\n"; 
$theTime = localtime($time); 
print "the time is good: $theTime\n\n";

如何在 Perl 中处理纪元之前的日期，在 unix 和 windows 上都有相同的问题 Perl 5.8.8。 PHP 显示日期正常没有问题。

Answer 1

你试过使用DateTime吗？ ？