Web クライアント perl プログラミング。Apache のベーシック認証を
perl で LWP を使って自動的にやりたい。ブラウザみたいに単純に
「http://username:password@www.example.com/」と指定するだけでは
ダメだった。以下を参考にしてなんとか解決した。

- <http://www.perl.com/pub/a/2002/08/20/perlandlwp.html?page=4>
- <http://archive.develooper.com/libwww@perl.org/msg03809.html>

サンプルプログラムをどうぞ。

#!/usr/binperl
use strict;
use LWP::UserAgent;
my $url = 'http://www.example.com/secret/';
my $server_and_port = $url;
$server_and_port =~ s|^http://([^/]+).*$|$1:80|;
my ($popup_msg, $username, $password) = ('Hello!', 'foo', 'bar');
my $ua = new LWP::UserAgent;
$ua->credentials($server_and_port, $popup_msg, $username => $password);
print $ua->get($url)->content();