work.log

元エンジニアの備忘録的ブログ

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);

簡単でした。