Hatena::Groupperlmemo

Perlメモ

2008年09月18日 より開始
最新5件(RSS 2.0)
古いモジュールの更新

Plagger(Fedora10)
Plagger(Ubuntu9.04)

CPAN::Mini

Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集

2008-10-10

はてなブックマーク合計数取得(CGIの引数で)

| はてなブックマーク合計数取得(CGIの引数で) - Perlメモ を含むブックマーク はてなブックマーク - はてなブックマーク合計数取得(CGIの引数で) - Perlメモ はてなブックマーク合計数取得(CGIの引数で) - Perlメモ のブックマークコメント

http://www.hatena.ne.jp/&http://www.yahoo.co.jp/

#!/usr/local/bin/perl
#http://tophatenar.com/

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

our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc';



my $formin = $ENV{'QUERY_STRING'};
my @indata = split(/&/,$formin);




print "Content-type: text/html\n";
print "\n";
print "<html>\n";
print "<head>\n";
print "<title>はてなブックマーク合計数取得API</title>\n";
print "</head>\n";
print "<body bgcolor=\"#ffcccc\">\n";



foreach(@indata) {
    my $count = XMLRPC::Lite
        ->proxy($EndPoint)
        ->call('bookmark.getTotalCount', $_)
        ->result;

    printf("%d,%s<br>\n", $count, $_);
}


print "</body>\n";
print "</html>\n";