EDGE Now!リンク数野良APIサンプルプログラム

Tweet

昨日のEDGE Now!登録ブロガーにリンクされたサイトURLからリンクユーザ数を得る野良APIを実際に使ってみる例です。

やっぱりはてなのまねですｗ

---

複数のURLに対するリンク数を出力するPerlサンプルスクリプトは以下のようになります。ここでは XML-RPC の処理に XMLRPC::Lite モジュールを利用しています。

#!/usr/bin/perl
use strict;
use warnings;
use XMLRPC::Lite;
                                               
our $EndPoint = 'http://labo.dtpwiki.jp/edgenow/xmlrpc.cgi';
            
my @urls = (                           
    'http://www.chanel-mobileart.com/',
    'http://blog.lv99.com/?eid=774586',                     
    'http://tokyo.interactive.ad.awards.jp/Results08/list.html',
);
                      
my $map = XMLRPC::Lite                                      
     -> proxy($EndPoint)
     -> call ('link.getCount', @urls)
     -> result;
 
printf("%d\t%s\n", $map->{$_}, $_) for @urls;

上記スクリプトをコマンドラインから実行した場合、以下の様な結果が得られます。

$ perl client.pl 
5       http://www.chanel-mobileart.com/
1       http://blog.lv99.com/?eid=774586
5       http://tokyo.interactive.ad.awards.jp/Results08/list.html

---

実際の実装例は、

各SBMサービス別オンラインブックマーク件数チェック

になります。

2008.04.05 12:43 投稿　大野 義貴 [Web] | 固定リンク |