自分用メモ。

#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Request::Common;
use LWP::UserAgent;

my $url = "http://twitter.com/statuses/friends_timeline.atom";
my $user = "USERNAME";
my $pwd = "PASSWORD";
my $ua = LWP::UserAgent->new;
my $u = URI->new($url);
$ua->credentials($u->host_port , "Twitter API", $user, $pwd);
my $res = $ua->request(GET $url);

my $rss = $res->is_success ? $res->content : "";

print $rss;

Twitter の friends timeline が認証無しでは
取得できなくなっていたので、
先日の chumby+twitter hack デモ[2008-05-18-3]を
上記の方法で直した。

参考：
- LWP::UserAgentでBASIC認証つきでリクエストする - bits and bytes
  http://labs.gmo.jp/blog/ku/2007/06/lwpuseragentbasic.html
- [を] perl でベーシック認証を通過する[2002-11-07-2]
- [を] LWP::UserAgent をちょこっと使うための雛形[2007-06-10-2]