perl - 使用 Perl 转换日期格式和时区

Question

我该如何转换：

05\/26\/2013 06:09:47到25 May 2013 23:09:47

上述日期为 GMT-7 时区。如何以上述格式将其更改为 GMT 时间。

谢谢。

Answer 1

use DateTime::Format::Strptime qw( );

my $src_format = DateTime::Format::Strptime->new(
   pattern   => '%m\\/%d\\/%Y %H:%M:%S',
   time_zone => '+0700',
   on_error  => 'croak',
);

my $dst_format = DateTime::Format::Strptime->new(
   pattern   => '%d %b %Y %H:%M:%S',
   locale    => 'en_US',
   on_error  => 'croak',
);

my $dt = $src_format->parse_datetime('05\\/26\\/2013 06:09:47');
$dt->set_time_zone('GMT');
say $dst_format->format_datetime($dt);