perl でベーシック認証を通過する
2002-11-07-2
[Programming]
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>
サンプルプログラムをどうぞ。
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();
この記事に言及しているこのブログ内の記事