トップ 差分 一覧 Farm ソース 検索 ヘルプ RSS ログイン

perlでBASIC認証

perlでBASIC認証

[Perl]
最終更新時間:2009年02月09日 22時54分02秒

perlであるページのBASIC認証を通過するには以下のようにする。

 #!/usr/bin/perl
 use LWP::UserAgent;
 our $HOME_URL = 'BASIC認証がかかっているページのURL';
 our $USERNAME = 'ユーザ名';
 our $PASSWORD = 'パスワード';
 my $ua = LWP::UserAgent->new;
 my $req = HTTP::Request->new(GET => $HOME_URL);
 $req->authorization_basic($USERNAME, $PASSWORD);
 print $ua->request($req)->as_string;