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

簡単でした。

おすすめのVPSサーバ

  • OSが選べる
  • VPS同士でLANが組める
  • 複数台構成向き

このブログで使っています。

  • 転送量が多いサービスに
  • 借りてるのは3年間一度もdown無し!

よく見られている記事

  • 本日
  • 週間
  • 月間