[Perl]７行のコードで、任意のウェブサイトのはてぶブクマ数をカウントする

2011/10/22

$ sudo cpan XMLRPC::Lite
または
$ cpanm XMLRPC::Lite

はてぶ数をカウントするコード

use strict;
use warnings;
use XMLRPC::Lite;

my $url = 'http://dqn.sakusakutto.jp/2011/10/';
my $EndPoint = 'http://b.hatena.ne.jp/xmlrpc';
my $count = XMLRPC::Lite
        ->proxy($EndPoint)
        ->call('bookmark.getTotalCount', $url)
        ->result;

print $count, "\n";

見やすく改行を入れたので１２行ですが、実質は７行です。

実行する

$ perl  hatebu_count.pl
11819

応用編：自分のブログの、2011年10月の記事のはてぶ数を数える

URLは、必ずしもサイトトップのURLでなくてもかまいません。

私のブログの例でいうと、
http://dqn.sakusakutto.jp/2011/10/
を指定すれば、そのディレクトリ以下の全記事のはてぶ数合計を取得できます。

my $url = 'http://dqn.sakusakutto.jp/2011/10/';

実行する。

$ perl hatebu_count.pl
13

それだけかい！

カテゴリ: Perl