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);
<strong>$req->authorization_basic($USERNAME, $PASSWORD);</strong>

print $ua->request($req)->as_string;

1;

トラックバック URL: https://perltips.twinkle.cc/trackback/144

Posted on 2006-11-19 by yas |