↑Ｂ

ツイート
2012.08.02

PerlのNet::Twitterモジュールでtimelineに含まれる日付文字列を日本時刻のエポック時刻に変換

use HTTP::Date;しておく
#新しいもの200件分のタイムラインを取得
my $result_ref = $twit->friends_timeline({count=>200});

foreach my $hash_ref (@$result_ref){
　　#ユーザー名
　　print $hash_ref->{'user'}{'screen_name'};
　　#コメント
　　print $hash_ref->{'text'};
　　#書き込まれた日時（日本時刻)
　　#もともと取得出来る日時文字列はこんな感じ→Wed Aug 01 23:25:48 +0000 2012
　　#このフォーマットだとHTTP::Date::str2timeでparse出来ないのでちょっと加工「+0000」が邪魔
　　$hash_ref->{'created_at'}=~ s/\+0000 //g;
　　#エポックタイムに変換、日本時刻にするために9時間プラス
　　$time=HTTP::Date::str2time($hash_ref->{'created_at'})+3600*9;
　　print $time;
　　}

Category:Perl・Javascript・python、サーバー管理メモ

Follow @fetuin

コメント

いいっすね！=1

名前 ↑Ｂ

ツイート
コメント(※改行は省略されます）

※３回以上の連続書き込み不可

この記事のアクセス数:


→カテゴリー：Perl・Javascript・python、サーバー管理メモ(記事数:83)
アクセス数の多い記事(過去1ヶ月)

すべて見る