Perl 不使用 datetime 模块转换日期时区

Question

我的日期格式如下： 05/26/2013 06:08:00
上述日期的时区是 GMT -7

我如何将上述内容更改为 GMT 日期和时间，格式为：2013 年 5 月 26 日 13:08:00 GMT

注意：我无法安装任何 perl 模块。我知道我可以通过 DateTime 轻松完成此操作，但我无法安装它。

谢谢。

Answer 1

您可以使用Time::Piece，它应该包含在 Perl 安装中。

use Time::Piece;

my $datetime = '05/26/2013 06:08:00';
$datetime   .= '-0700'; # attach the timezone offset

my $dt = Time::Piece->strptime($datetime, '%m/%d/%Y %H:%M:%S %z');
print $dt->strftime('%d %b %Y %H:%M:%S');