2007年02月14日
ブックマーク件数取得APIサンプルプログラム：Perl編
[ サンプルプログラム ]
こちらのコンテンツでは、Perlを利用したブックマーク件数取得APIのサンプルプログラムを御紹介します。ブックマーク件数取得APIの仕様詳細に関しましては、こちらをご覧下さい。
尚、本サンプルプログラムでは、XML/RPCの処理を行なうに際して、perlモジュールであるXMLRPC::Liteを利用しています。XMLRPC::Liteの導入に関しましては、
cpan> install XMLRPC::Lite
などの方法にて別途インストール下さい。尚、XMLRPC::Liteに関するドキュメントはこちらをご覧下さい。
#!/usr/local/bin/perl
use strict;
use warnings;
use XMLRPC::Lite;
# リクエストメッセージの作成
my @urls = qw(
http://pingking.jp/
http://b.hatena.ne.jp/
http://del.icio.us/
);
my $proxy = 'http://api.pingking.jp/xmlrpc/bookmark';
# メッセージの送信
my $result = XMLRPC::Lite->proxy($proxy)
->call( 'getCount', @urls )
->result;
# レスポンスの表示
printf( "%d\t%s\n", $result->{$_}, $_ ) for keys %$result;
尚、実際の実装に際してはキャッシュ機構を導入されることお勧めします。
その他のサンプルプログラム