2011年5月7日土曜日

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の読み込み・結果を保存を実施予定。
このエントリーをはてなブックマークに追加

2011年5月6日金曜日

wgetとcurlの違いを知った

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

wgetとcurlの根本的な違い - ctrlshiftの日記
このエントリーをはてなブックマークに追加

JUGGERNAUT観た

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


このエントリーをはてなブックマークに追加

2011年5月3日火曜日

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

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

Title カテゴリ SAP ユーザ数 AS運営者 AS
CityVilleGames/OtherZynga89171915AmazonAS14618
FarmVilleGames/Virtual WorldZynga46231606AmazonAS14618
Texas HoldEm Poker Games/CardZynga36204518PACNETAS20940
FrontierVilleGames/Virtual WorldZynga15093228AmazonAS14618
Caf? WorldGames/Virtual WorldZynga12916388AmazonAS14618
Pet SocietyGames/Virtual WorldElectronic Arts9578090AmazonAS14618
Ravenwood FairGames/Virtual WorldLolapps Inc.9451266SOFTLAYERAS36351
Treasure IsleGames/Role PlayingZynga8419499AmazonAS14618
It GirlGames/Role PlayingCrowdStar8338276AmazonAS14618
Millionaire CityGames/Virtual WorldDigital Chocolate, Inc.8018617AmazonAS14618
このエントリーをはてなブックマークに追加

2011年5月1日日曜日

Web::Scraper便利

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

参考:use Web::Scraper; - 今日のCPANモジュール(跡地)
このエントリーをはてなブックマークに追加