PerlでBasic認証で保護されたページ内容を取得する

Perl でBasic認証で保護されたページ内容を取得するメモ。

Basic認証はよく利用するのですが、何かを作っている時にこれがネックとなる場合もチラホラと。そういえば Perl でこの認証を突破する方法を知らないやと思ってちょっとやってみました。

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;

    my $url = 'http://example.jp/basic/';
    my $ua = LWP::UserAgent->new;

    my $req = HTTP::Request->new(GET => $url);
    $req->authorization_basic('user', 'password');

    my $res = $ua->request($req);
    print Dumper($res->content);

簡単でした。