Twitter API タイムスタンプ一時対処法

Perl Twitter

Twitter APIで取得するタイムスタンプ - すぎゃーんメモ続き。

Thu Oct 23 12:47:56 +0000 2008

と返ってくる限りは、

use HTTP::Date;

my $date = 'Thu Oct 23 12:47:56 +0000 2008';
$date =~ s/\+0000/UTC/;
print scalar(localtime(str2time($date))), "\n";

とやれば、

Thu Oct 23 21:47:56 2008

と変換できる。
かなり限定的な方法だけど、Twitter APIのタイムラインがこの形式で返してくるならとりあえず今はこれでいいやw