LWP でベーシック認証に対応する | dTblog

自分メモ。 LWP で ベーシック認証のかかったページにアクセスするには、authorization_basic を使えば良いらしい。簡単だ。 #!/usr/bin/perl use strict; use LWP::UserAgent; use HTTP::Request; my $req = HTTP::Request->new(GET => "https://foo.bar.com/basic/auth.html"); $req->authorization_basic('account', 'password'); my $ua = LWP::UserAgent->new(); my $res = $ua->request($req); if ($res->is_success) { print $res->content; } else { print $res->code; }