ポンパレードの1,000,000枚限定チケットが何枚売れているかチェックするスクリプト

あえてAPIじゃなくてxmlでもなくてスクレイピングしてみる。
と言っても、Web::Scraperのコマンドラインツールから生成されたものなのでprocess文しか書いていません。

#!/opt/local/bin/perl
use strict;
use Web::Scraper;
use URI;

my $uri = URI->new("http://ponpare.jp/shinjyuku/deal/P246.html");
my $scraper = scraper {
    process '/html/head/title', 'title'=>'TEXT';
    process '//*[@id="ajax_ticket_count"]', 'count' => 'TEXT';
};
my $result = $scraper->scrape($uri);

print $result->{title}, "\n";
print $result->{count};

output

ハーゲンダッツ　ギフト券 | リクルートの割引チケット購入サイト ポンパレ [新宿・高田馬場・中野・吉祥寺版]
101,296

あとリンク切れまくってますが、PythonのFlaskで軽いアプリ作ってMA6に出してみました。
gist.github.com + codepad.orgみたいなイメージです。

http://codetype.org/PKyyqMYwoH

ちょくちょく手直しして、とりあえず自分の使いやすいものにしていきます。