自分メモ。

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;
}

関連記事

Perl で加重ラウンドロビン

FileCache と Memcached を比較する

perl で配列に要素が含まれているか調べる方法

perl で mkdir -p

perl でビット演算の結果を数値比較する際の注意点