使用 POSIX 将时间戳转换为 GMT

Question

是否可以使用 POSIX 模块在 Perl 中将给定的时间戳转换为 GMT？以下是我尝试过的，但不知道为什么时间如此遥远......

use POSIX;
my $shipts = "2017-09-23 20:53:00";
my $shiptsgmt = strftime("%Y-%m-%d %R", localtime(str2time($shipts, 'GMT')));
print "$shiptsgmt\n";

服务器的本地时间是太平洋时间，猜猜我正在尝试做的事情是不正确的。以上产生 2017-09-23 13:53 我需要 2017-09-24 03:53 时间。

Answer 1

单独的POSIX 无法做到这一点，这离不开内置函数的帮助和一些处理。

另一种选择：Time::Piece 是核心，根据我的经验，它比 POSIX 快得多

perl -MTime::Piece -wE'
    $d = "2017-09-23 20:53:00"; 
    $t = localtime->strptime($d, "%Y-%m-%d %H:%M:%S");
    $t = gmtime($t->epoch);
    say $t->strftime("%Y-%m-%d %H:%M:%S");
'

这将创建一个对象，然后使用模块的（兼容）替换 gmtime 将其转换为 GMT，返回一个也被适当标记为 GMT 的对象。

strftime 与 POSIX 扩展相同但轻得多，strptime 是 from FreeBSD。 该模块还有许多方法可以将日期时间对象的各个部分或表示形式作为字符串获取，以及一些其他实用程序。另见Time::Seconds。

DateTime 很好地完成了这一切，通过其 formatters 进行解析和字符串化。但是很重。

---

注意 最终很容易错误地使用这个模块，而这个答案在ikegami 修复它之前就是这样做的。因此，请非常小心除基本以外的任何用途。查看链接的答案

• (answer): How to make Time::Piece respect DST when converting localtime to UTC?
  了解在转换时区时可能出现的与 DST 相关的错误。

• (answer): How can I parse dates and convert time zones in Perl?
  事实证明，这实际上涵盖了这个问题。

请注意，上面的答案在 v5.10 中不起作用，显然是由于模块中的 then-bug。