PerlでJSONの日付形式を解析するにはどうすればよいですか？

Question

WebサービスがPerlでJSON形式で受け取っているこの日付形式を解析するにはどうすればよいですか？私は、DateTimeオブジェクトに変換したい：

Date(1216647000000-0400) 

私はそれがタイムゾーンオフセットと一緒にエポックからのミリ秒であったと仮定が、日付は遠く離れています。

Answer 1

時間は、エポックからのミリ秒単位で表示されます。エポック秒を得るために1000で割る。

あなたが遭遇した、これは他のケースで動作していることを確認してください：

use DateTime; 

my $json_date = 'Date(1216647000000-0400)'; 
if ($json_date =~ m{ \b (\d+) \b ([+-]\d\d\d\d\b)? }x) { 
    my ($epoch_milliseconds, $time_zone) = ($1, $2); 
    my $dt = DateTime->from_epoch(epoch => $epoch_milliseconds/1000); 
    if ($time_zone) { 
     $dt->set_time_zone($time_zone); 
    } 
    print $dt->datetime; 
}