2

我有 2 台 linux 机器需要运行 perl 脚本并访问数据库。出于任何原因，日期本身是正确的，但是从 Perl 返回的纪元有 1 小时的差异，导致在一台机器上具有 UTC 纪元时间戳，而在另一台机器上具有所需的 CET。

A 日期：

2012 年 12 月 11 日星期二 13:34:09 CET

B 日期：

2012 年 12 月 11 日星期二 13:33:20 CET

为了检查发生了什么，我构建了一个简约的示例。该脚本使用 Time::HiRes 并收集 localtime->epoch 来生成日期。我构建了一个简约的以下脚本来输出行为：

#/usr/bin/perl
#
use Time::HiRes qw(time);
use Time::Piece;
#
my $date = Time::Piece->strptime(localtime->epoch,"%s");
print "$date->datetime"."\n";
print $date->tzoffset."\n";
print $date->epoch."\n";

输出机器A：

2012 年 12 月 11 日星期二 12:35:43-> 日期时间 0 1355229343

输出机器 B：

2012 年 12 月 11 日星期二 13:34:25-> 日期时间 0 1355232865

因此，如您所见，时区左右肯定有问题。相差一个小时。但是我不知道在哪里看以及配置什么，因为日期本身会输出正确的时间。

4

2 回答 2

3

这似乎是Time::Piece->strptime(STRING, FORMAT). 这是有问题的代码：

sub strptime {
    my $time = shift;
    my $string = shift;
    my $format = @_ ? shift(@_) : "%a, %d %b %Y %H:%M:%S %Z";
    my @vals = _strptime($string, $format);

让我们从这里开始。_strptime是操作系统的原生strptime函数。它似乎返回当地时间，尽管任何地方都没有记录。

#    warn(sprintf("got vals: %d-%d-%d %d:%d:%d\n", reverse(@vals)));
    return scalar $time->_mktime(\@vals, (ref($time) ? $time->[c_islocal] : 0));

好的，所以我们使用我们的_mktime方法将输出_strptime转换为Time::Piece对象。第二个参数是_mktime应该解释为本地时间还是 UTC。当调用 as 时Time::Piece->strptime(STRING, FORMAT)，ref($time)将为 false，因此_mktime将调用 with $islocal=0，即_strptime返回 UTC 时间。这是错误的，我们已经找到了错误。（我对 C 时间函数知之甚少，不知道应该如何完成。）

}

所以你必须使用localtime->strptime(STRING, FORMAT). _mktime除了由于另一个错误（我的发行版附带版本 1.15，这仍然被破坏，但它在 1.20 中修复），这仍然会在旧版本的模块上失败。

这甚至不是特定于%s. 任何Time::Piece->strptime电话都会发生这种情况：

$ perl -MTime::Piece -E'say $x=Time::Piece->strptime("11 Dec 2012 10:00","%d %b %Y %H:%M")->epoch;say scalar localtime $x'
1355220000
Tue Dec 11 04:00:00 2012
$ perl -MTime::Piece -E'say $x=localtime->strptime("11 Dec 2012 10:00","%d %b %Y %H:%M")->epoch;say scalar localtime $x'
1355220000
Tue Dec 11 04:00:00 2012
$ export PERL5LIB=Time-Piece-1.20/blib/lib:Time-Piece-1.20/blib/arch
$ perl -MTime::Piece -E'say $x=Time::Piece->strptime("11 Dec 2012 10:00","%d %b %Y %H:%M")->epoch;say scalar localtime $x'
1355220000
Tue Dec 11 04:00:00 2012
$ perl -MTime::Piece -E'say $x=localtime->strptime("11 Dec 2012 10:00","%d %b %Y %H:%M")->epoch;say scalar localtime $x'
1355241600
Tue Dec 11 10:00:00 2012
于 2012-12-11T16:24:34.353 回答
-2

我建议你尝试使用gmtime而不是localtime.

没有帮助：

>perl -MTime::Piece -E"say Time::Piece->strptime(localtime->epoch,'%s')->epoch;"
1355239881

>perl -MTime::Piece -E"say Time::Piece->strptime(gmtime->epoch,'%s')->epoch;"
1355239881

>perl -E"say time"
1355239881
于 2012-12-11T14:30:35.617 回答