Perlで基本認証を済まし、ページを取得する方法

質問

Perlで基本認証を済まし、ページを取得する方法がさっぱり分かりません。
できれば抽象的な説明より、プログラムそのまま書いてくれませんか？

回答No.2

leaz024 · ベストアンサー

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => '取得するページのURL');
$req->authorization_basic('ユーザー名', 'パスワード');
print $ua->request($req)->as_string;

お礼

ありがとうございました。

回答No.1

zem

met000jp さんのされたい事は、BASIC 認証後に Perl(CGI)を使ってユーザ事にページを使い分けたい場合でしょうか。

　そうであれば、環境変数 $ENV{REMOTE_USER} で BASIC 認証で認証させたユーザ名を取得できます。

参考URL：

http://x68000.q-e-d.net/~68user/net/http-auth-1.html