perlで、BASIC認証のページを取得する
簡単に作ったのだけれど、warningが出る。
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://example.com/basic.html'); #パラメタにユーザー名とパスワードを入力する $req->authorization_basic('username', 'password'); my $res = $ua->request($req); my $content = $res->content; print $content;
エンコードは適宜。