WWW::Curl::Easy使ってみた

下記を参考にした。
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の読み込み・結果を保存を実施予定。