Perl で、BASIC 認証（基本認証）付きのサイトにアクセスするには？

LWP::UserAgent を使うのだが、以下のコードで太字の行がポイント。

使用するモジュール

use LWP::UserAgent;

コード

#!/usr/bin/perl use LWP::UserAgent; our $HOME_URL = 'ユーザー名とパスワード付きの URL'; our $USERNAME = '上記 URL にアクセスするためのユーザー名'; our $PASSWORD = '上記 URL にアクセスするためのパスワード'; $ua = LWP::UserAgent->new; $req = HTTP::Request->new(GET => $HOME_URL); $req->authorization_basic($USERNAME, $PASSWORD); print $ua->request($req)->as_string; 1;

Comments