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-09-18

はてなブックマーク合計数取得API

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

jkondoさんのページ全体

http://hiroyuki12.sakura.ne.jp/hatenabookmarkTotalCount2.cgi

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

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

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

#my @urls = (
#    #'http://d.hatena.ne.jp/',
#    'http://blog.goo.ne.jp/',
#);


#1
my $url = 'http://d.hatena.ne.jp/jkondo/';
my $jkondo = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;



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";


print "jkondo " . $jkondo . "<br>\n";


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

perl test.pl


いろいろ

http://hiroyuki12.sakura.ne.jp/hatenabookmarkTotalCount.cgi

はてなブックマーク件数取得APIとは - はてなキーワード

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

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

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

#my @urls = (
#    #'http://d.hatena.ne.jp/',
#    'http://blog.goo.ne.jp/',
#);


#my $url, my $count;
my $url = 'http://d.hatena.ne.jp/';
my $count = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#1
$url = 'http://d.hatena.ne.jp/finalvent/';
my $finalvent = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#2
$url = 'http://d.hatena.ne.jp/fromdusktildawn/';
my $fromdusktildawn = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#3
$url = 'http://d.hatena.ne.jp/naoya/';
my $naoya = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#4
$url = 'http://d.hatena.ne.jp/umedamochio/';
my $umedamochio = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#5
$url = 'http://d.hatena.ne.jp/amachang/';
my $amachang = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#6
$url = 'http://d.hatena.ne.jp/kanose/';
my $kanose = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#7
$url = 'http://d.hatena.ne.jp/essa/';
my $essa = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#8
$url = 'http://d.hatena.ne.jp/sirouto2/';
my $sirouto2 = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#9
$url = 'http://d.hatena.ne.jp/mkusunok/';
my $mkusunok = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

#10
$url = 'http://d.hatena.ne.jp/jkondo/';
my $jkondo = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

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";

printf "はてなダイアリー全体  " . $count . "<br>\n";

printf "finalvent " . $finalvent . "<br>\n";
printf "finalvent " . $finalvent * 100 / $count . " %<br><br>\n";

printf "fromdusktildawn  " . $fromdusktildawn . "<br>\n";
printf "fromdusktildawn  " . $fromdusktildawn * 100 / $count . " %<br><br>\n";

printf "naoya  " . $naoya . "<br>\n";
printf "naoya  " . $naoya * 100 / $count . " %<br><br>\n";

printf "umedamochio  " . $umedamochio . "<br>\n";
printf "umedamochio  " . $umedamochio * 100 / $count . " %<br><br>\n";

printf "amachang  " . $amachang . "<br>\n";
printf "amachang  " . $amachang * 100 / $count . " %<br><br>\n";

printf "kanose  " . $kanose . "<br>\n";
printf "kanose  " . $kanose * 100 / $count . " %<br><br>\n";

printf "essa  " . $essa . "<br>\n";
printf "essa  " . $essa * 100 / $count . " %<br><br>\n";

printf "sirouto2  " . $sirouto2 . "<br>\n";
printf "sirouto2  " . $sirouto2 * 100 / $count . " %<br><br>\n";

printf "mkusunok  " . $mkusunok . "<br>\n";
printf "mkusunok  " . $mkusunok * 100 / $count . " %<br><br>\n";

printf "jkondo  " . $jkondo . "<br>\n";
printf "jkondo  " . $jkondo * 100 / $count . " %<br><br>\n";

printf "合計<br>" . $finalvent + $fromdusktildawn + $naoya + $umedamochio + $amachang + 
					$kanose + $essa + $sirouto2 + $mkusunok + $jkondo . "\n";
printf "合計<br>" . ($finalvent + $fromdusktildawn + $naoya + $umedamochio + $amachang + 
					$kanose + $essa + $sirouto2 + $mkusunok + $jkondo) * 100 / $count . "\n";					



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

$ perl test.pl > out.html

safariで開く


TopHatenar ブックマーク数ランキング

JasonFoetsJasonFoets2017/01/25 04:27печать буклетаов http://wkrolik.com.ua/products/buklety