ユーザ認証を要するページにperlでアクセス BASIC認証またはDIGEST認証を要求する web ページに perl でアクセスしたいときには LWP::UserAgent モジュールの credentials メソッドが使える。 実験用に用意した http://www.augustus.to/test/authtest/ にアクセスしてみよう。領域名は Auth_Test、ユーザ名は authtestuser、パスワードは password である。スクリプトは以下のようになる。 use LWP; use HTTP::Request::Common; $domain="www.augustus.to"; $port=80; $realm="Auth_Test"; #領域名 $user="authtestuser"; #ユーザ名 $passwd="password"; #パスワード $