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);