読者です 読者をやめる 読者になる 読者になる

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

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

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

@さんからコメントが!

画像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