PDTからJSTへの変換

ワンライナーで書いてみた。

perl -MDateTime -le '$hash=+{year=>2011,month=>3,day=>22,hour=>19}; $pdt=DateTime->new(%$hash, time_zone=>"America/Los_Angeles"); $tokyo=DateTime->from_epoch(epoch=>$pdt->epoch, time_zone=>"Asia/Tokyo"); print($tokyo->ymd, " ", $tokyo->hms);'

2011-03-23 11:00:00

もうちょっとかっこいいやり方はないものか。。