Perlは今年のサマータイムに対応してるんだろうか?
http://d.hatena.ne.jp/yokolet/20070319#1174328624に触発されてPerlで試してみた.
Javaのソースを出来るだけ再現したつもり.
use DateTime; sub print_dt { my ($comment, $dt) = @_; printf "%s: %s %s\n", $comment, $dt->ymd('/'), $dt->hms; } my $dt = DateTime->now; $dt->set_time_zone('America/Detroit'); print_dt('Detroit', $dt); $dt->set_time_zone('Asia/Tokyo'); print_dt('Tokyo', $dt);
結果は以下の通り.今年のサマータイムに対応しているらしい.
$ perl timezone_test.pl Detroit: 2007/03/21 12:37:45 Tokyo: 2007/03/22 01:37:45
ただ,このソースを実装するのに使ったモジュール/リリース日は以下の通りなので,
バージョンによっては対応してないかもしれない.
DateTime-0.36/2007-01-18
DateTime-TimeZone-0.63/2007-03-20
しかしこれでは,Perlのモジュールレベルでの対応を確認しただけに過ぎないか.
言語レベルでの対応がどうなのかは,Perlの識者にお任せ...