LWP::UserAgent でベーシック認証を通過するための雛形LWP::UserAgent でベーシック認証を通過するための雛形 2008-06-15-4 [Programming] 自分用メモ。 #!/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->requ
