昨日はブラブラ都内徘徊、ていうか順路。

上野のうさぎやでドラ焼きを買い、秋葉原の立ち食い寿司で昼飯にし、ヨドバシを冷やかして、浅草ダイマスでビールをガブっといただく。

その途中、秋葉原のブックオフに寄って、スペンサーシリーズを105円で7冊、ファファード＆グレイマウザーの2巻「死神の二剣士」を購入。スペンサーシリーズはまだきれいに揃わないので読み進められない、かな。

今、電車のお供がスティーヴン・キング「夕暮れをすぎて」いや、ほんと、キングって、キ印に追いかけられる話が好きなんだなあ。…て、まじめに、おっかねーよ。

こないだから、どうにかならんかと調べ中のtwitterストリーミング。

まずは perl で非同期についてぐーぐる様詣でしたところ coro というモジュールにいきつく。

use Coro；
use Coro:Event；
use Coro:LWP；
use LWP::UserAgent；

my $xml；
my @coros；
foreach my $method (’user_timeline.xml’，’mentions.xml’，’friends_timeline.xml’){
  push @coros， async{
    $xml->{$method} = &get_timeline($method)；
  }；
}
$_-> join for @coros； 
foreach(keys %{ $xml }){
  print $xml->{$_}，"\n"；
}

sub get_timeline{
  my $method = shift；
  my $uri = ’http://twitter.com/statuses/’ . $method；
  my $req = HTTP::Request->new(GET=>$uri)；
  $req->authorization_basic(’NAME’，’PASS’)；
  my $ua = LWP::UserAgent->new(keepalive=>4)；
  my  $res = $ua->request($req)；
  return $res->content；
}

中身の理解はまるでなく、呪文状態で使ってるんだけど（join for @coros てナニ？）、friends_timeline、user_timeline、mentionsを順番待ちせず、一度に取得するので早い。これは便利、かも。ちょっと理解しておいた方が吉だからもちっと真面目に調べようか。

『夕暮れをすぎて』

スティーヴン キング