PerlでTwitterの検索を行う

こちらは簡単。

my $ua = new LWP::UserAgent();
my $req = new HTTP::Request(GET => 'http://search.twitter.com/search.atom?q=***');
my $res = $ua->request($req);
if($res->is_success()){
  my $content = $res->content;
  $content = decode('utf-8',$content);
  $content =~ s/&#(\d+);/chr($1)/ge;
  $content = encode('utf-8',$content);
  print $content;
}else{
  print "Error!!\n";
}