WWW::Curl - search.cpan.org
#!/usr/bin/perl -w
use strict;
use warnings;
use WWW::Curl::Easy;
my $in_file = "<適当なfile名>";
open(IN,"$in_file");
while(<IN>){
chomp($_);
my $response_body;
my $curl = WWW::Curl::Easy->new;
$curl->setopt(CURLOPT_HEADER,1);
$curl->setopt(CURLOPT_WRITEDATA,\$response_body);
$curl->setopt(CURLOPT_URL, "$_");
my $retcode = $curl->perform;
print $_.":".$retcode.":".$curl->getinfo(CURLINFO_HTTP_CODE)."\n";
}
exit;
読み込むURL listは下記フォーマットで、別fileで用意。
http://www.yahoo.co.jp
http://www.google.co.jp
上のスクリプトで動作確認ok。後はDBと連携して、URL listの読み込み・結果を保存を実施予定。
