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);
<strong>$req->authorization_basic($USERNAME, $PASSWORD);</strong>
print $ua->request($req)->as_string;
1;
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);
<strong>$req->authorization_basic($USERNAME, $PASSWORD);</strong>
print $ua->request($req)->as_string;
1;