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の読み込み・結果を保存を実施予定。

wgetとcurlの違いを知った

wgetでfile dlするぐらいでしたが、それぞれいろいろ違うのですね。
下記参照させていただきました。

wgetとcurlの根本的な違い - ctrlshiftの日記

JUGGERNAUT観た

腰痛で動けないので、ストックしておいた「TSUTAYAおすすめ」を観ました。
1974年の作品なのに、一気に観れた。ファロン中佐かっこいい。
「red wire and blue wire」以後、有名なセリフになるんですね。

FacebookのゲームのASを調べてみた

現時点の精度は60%程度。Facebookのpopular rankingと若干の差異あり。
結論としては、PC版のSNSのソーシャルアプリのAS調査は自動化可能。

Title	カテゴリ	SAP	ユーザ数	AS運営者	AS
CityVille	Games/Other	Zynga	89171915	Amazon	AS14618
FarmVille	Games/Virtual World	Zynga	46231606	Amazon	AS14618
Texas HoldEm Poker	Games/Card	Zynga	36204518	PACNET	AS20940
FrontierVille	Games/Virtual World	Zynga	15093228	Amazon	AS14618
Caf? World	Games/Virtual World	Zynga	12916388	Amazon	AS14618
Pet Society	Games/Virtual World	Electronic Arts	9578090	Amazon	AS14618
Ravenwood Fair	Games/Virtual World	Lolapps Inc.	9451266	SOFTLAYER	AS36351
Treasure Isle	Games/Role Playing	Zynga	8419499	Amazon	AS14618
It Girl	Games/Role Playing	CrowdStar	8338276	Amazon	AS14618
Millionaire City	Games/Virtual World	Digital Chocolate, Inc.	8018617	Amazon	AS14618

Web::Scraper便利

今まで避けてきたWeb::Scraperをやってみることに。
scraper + Firebugの組み合わせで簡単にできる。すごい。
明日は、今まで正規表現で書いていたところを置き換えてみる。

参考：use Web::Scraper; - 今日のCPANモジュール（跡地）