Perl日記

PerlとかRubyとかPHPとかPythonとか

HTTP::Requestメモ

ちょっとしたWebクローラを作ろうと思って、HTTP::Requestを使ったんだけど、そのとき知ったメモ。
いつもは、こう。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $rq = HTTP::Request->new(GET=>'http://hogehoge.com/index.html');
$ua->request($rq);

今日はたくさんリクエストを作る必要があったので、その分インスタンスを作るのも無駄なんじゃないかと思った。
で、こうした。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $rq = HTTP::Request->new();
# 全部 GET なので最初にセット
$rq->method('GET');
# 以下、URI指定
for my $uri (@uris) {
  $rq->uri($uri);
  $ua->request($rq);
}

HTTP::Requestにはmethodメソッドとuriメソッドがある←覚えた。