Perlのワンライナーで時間を計算してみる

Tweet

「リミットは、残り約677時間、日付にして、……3月31日、24時。」というセリフを3月3日18時半ごろにしゃべるという設定のドラマがあったんで、合っているか確認してみた。

ワンライナーで。

$ perl -MDateTime::Format::HTTP -e '$dt=DateTime::Format::HTTP->parse_datetime("2011-04-01T00:00:00")->set_time_zone("Asia/Tokyo")->add(hours => -677 );print "$dt\n";'
2011-03-03T19:00:00
$ 

まあま合っているかな。

2010.05.06 22:39 投稿　大野 義貴 [Perl] | 固定リンク |