フォロワーのブログのはてブ数を調べてみた

最近久しぶりにまた個人ブログを書き始めたんですが、
なんとなく気になって、Twitterでフォローしてる人達のブログの総はてブ数を調べてみました。

31761 元RX-7乗りの適当な日々 @namikawa
20355 delirious thoughts @kentaro
19416 blog.nomadscafe.jp @kazeburo
14450 (ひ)メモ @hirose31
13739 As a Futurist… @riywo
13684 たごもりすメモ @tagomoris
12067 昼メシ物語 @mirakui
10943 (ﾟ∀ﾟ)o彡 sasata299's blog @sasata299
10235 Glide Note - グライドノート @glidenote
9611 すぎゃーんメモ @sugyan
8340 酒日記はてな支店 @sfujiwara
7794 stanaka's blog @stanaka
7226 ゆううきブログ @y_uuk1
6274 HsbtDiary @hsbt
5964 Carpe Diem @n0ts
5724 外道父の匠 @GedowFather
5528 tumblr @shim0mura
5115 おそらくはそれさえも平凡な日々 @songmu
4505 Dマイナー志向 @matsuu
4261 sonots:blog @sonots
4165 Ore no homepage | おれのホームページ @la_luna_azul
3449 suz-lab - blog @suz_lab
3439 さよならインターネット @kenjiskywalker
2984 256bitの殺人メニュー @kuwa_tw
2901 iをgに変えるとorangeになることに気づいたoranieの日記 @oranie
2898 Y-Ken Studio @yoshi_ken
2473 かみぽわーる @kamipo
2445 カイワレの大冒険 @masudaK
2142 Pocketstudio.jp log3 | 鯖管理やクラウド話 @zembutsu
1763 debiancdn | AWS, Content Delivery Network and Debian @ar1
1259 mikedaの日記 @mikeda
1221 Studio3104::BLOG.new @studio3104
1188 blog.hansode.org @hansode
1129 双六工場日誌 @sechiro
799 hasegaw blog @hasegaw
735 cat /dev/random > /dev/null & @xcir
730 netmark.jp @netmarkjp
653 まいんだーのはてなブログ @myfinder
537 hack in 3 minites @tnmt
385 おいぬま日報 @oinume
99 どんまいこの花嫁修業 @mnakajima18

こうやって見ると、このブログもぜんぜんすなぁ。

補足的なやつ

いちおうリストの作成方法をのせておきます。
※1つずつ調べる場合は、はてブチェッカーというサイトで調べるのが簡単そうです。

はてな記法とかで簡単にできなそうだったので、はてなブックマークの被ブックマーク合計数取得APIを使いました。

## Twitter見ながらアカウントとブログのリストを作る(*´Д`)ﾊｧﾊｧ
$ cat blog_list 
oranie http://d.hatena.ne.jp/oranie/
mikeda http://mikeda.hatenablog.com/
kenjiskywalker http://blog.kenjiskywalker.org/
...

## ブログのタイトルと総ブクマ数を取得する
$ perl bookmark_count.pl blog_list > blog_list.csv
$ head blog_list.csv
namikawa,http://d.hatena.ne.jp/rx7/,元RX-7乗りの適当な日々,31761
kentaro,http://blog.kentarok.org/,delirious thoughts,20355
kazeburo,http://blog.nomadscafe.jp/,blog.nomadscafe.jp,19416

## markdownに変換
$ perl -F, -alne 'printf "%d. %d [%s](%s) @%s\n", $. , @F[3,2,1,0]' blog_list.csv
1. 31761 [元RX-7乗りの適当な日々](http://d.hatena.ne.jp/rx7/) @namikawa
2. 20355 [delirious thoughts](http://blog.kentarok.org/) @kentaro
3. 19416 [blog.nomadscafe.jp](http://blog.nomadscafe.jp/) @kazeburo
...

ブログのタイトルと総ブクマ数を取得するスクリプトの中身はこんな感じです。

#!/usr/local/bin/perl
use strict;
use warnings;
use XMLRPC::Lite;
use LWP::UserAgent;
use HTTP::Request;
use URI::Title;
use Data::Dumper;

binmode(STDOUT, ":utf8");

my @users = ();
while(my $line = <>){
  chomp $line;
  my ($twitter_id, $url) = split(' ', $line);
  my $boomark_count = get_bookmark_count($url);
  my $title = URI::Title::title($url);
  push( @users, {
    twitter_id => $twitter_id,
    url => $url,
    title => $title,
    boomark_count => $boomark_count,
  });
}

for my $user (sort {$b->{boomark_count} <=> $a->{boomark_count}} @users){
  print join(",", @{$user}{qw(twitter_id url title boomark_count)})  ."\n";
}

exit;

sub get_bookmark_count {
  my ( $url ) = @_;
  my $EndPoint = 'http://b.hatena.ne.jp/xmlrpc';
  my $count = XMLRPC::Lite
      ->proxy($EndPoint)
      ->call('bookmark.getTotalCount', $url)
      ->result;
  
  return $count;
}

そういやtophatenarはなんで更新されなくなったんだろう。

追記

その1

gistにCSVをアップしました。
https://gist.github.com/mikeda/ce4c9c661cac17d333c1

ブログ名に「,」が入ってる人がいるのでバグってます。

その2

tagomorisさんのはてなダイアリーとはてなブログが統合されたそうなので更新。ブクマ数が9652から13684に。

その3

@DQNEOさんからコメントが！

画像APIというのがあって、これで簡単に取得できます。 http://b.hatena.ne.jp/bc/de/http://dqn.sakusakutto.jp/

プログラマブルにやるならこんな感じで。 curl --silent --head http://b.hatena.ne.jp/bc/de/http://dqn.sakusakutto.jp/ | grep Location

こんなのあったのか！！

Markdownだとこう書けば

![画像](http://b.hatena.ne.jp/bc/de/http://mikeda.hatenablog.com/)

こう表示される。

これで全はてブ数を取れるのかー。こっちのほうが簡単だったなw