自分のサイトの被ブックマーク合計数をはてなグラフにPOSTするスクリプト

Perl

アクセス数の推移をグラフで見れるって楽しいなあ。
ダイアリーの被ブクマ合計数もグラフで見たい！と思い立ち、被ブックマーク合計数をはてなグラフに投稿するスクリプトをつくってみました。

ソースコードの99%は
はてなブックマーク件数取得apiとは - はてなキーワード
そして
WebService::Hatena::Graph - A Perl interface to Hatena::Graph API - metacpan.org
のサンプルのコピペでできてマス。

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use XMLRPC::Lite;
use WebService::Hatena::Graph;


my $userid = 'userid';
my $password = 'pass';
#グラフ名に日本語を利用する場合は要decode
my $graphname = decode('Shift-JIS', 'ブクマ数');

my $url = 'http://d.hatena.ne.jp/userid/';
our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc';

my $count = XMLRPC::Lite
    ->proxy($EndPoint)
    ->call('bookmark.getTotalCount', $url)
    ->result;

my $graph = WebService::Hatena::Graph->new(
                                           username => $userid,
                                           password => $password,
                                          );

$graph->post(
             graphname => encode('UTF-8', $graphname),   #グラフ名に日本語を利用する場合は要encode
             value     => $count,
            );


グラフ名に日本語を利用する場合は要注意ですね。
日本語のdecode, encodeを欠かしてしまうと化けた文字列がグラフ名に登録されてしまい、消せなくなってしまいます。どんな具合になるかについては、はてなグラフ - ablaboのグラフをご覧になっていただくのが一番わかりやすいかとｗ

アクセス数やブクマ数をグラフで見れるようにするとブログ書くモチベーションも沸きますしオススメですよ。