Perl でライフハック（？）「リンクの横にはてなブックマークのUser数を表示する」捨てスクリプト

lestrrat こと牧さんが中心となって推し進められている JPeA（Japan Perl Association）があります。詳しいことは公式の wiki をご覧になっていただきたいのですが、そのプレミーティングの時にたつをさんが、「Perl はライフハックツールだ」みたいなことを切り出してみんなで盛り上がりました。

「Perl と言えば CGI の言語」と思われがちですがそんなことは無く、例えば Web に限らずに、ちょっとした作業を自動化するプログラムをサクっと書けるのが魅力だったりします。繰り返しが続く作業や、何かのフォーマットを違うフォーマットに変換するなどといったことは、日々の業務でよく起こりうることで、それを Perl でもっと楽チンに、そして楽しく処理しましょうね、なんてことができるので「Perl はライフハックツール」とも言えるじゃないかということですね。 ( * もちろん他の言語でもできるのですが、Perl はテキストを扱うことに長けているのと、俺が Perl 使っているのと、JPeA 的スタンスで「Perl かわいいよ」という展開になってますｗ）

さて、ちょうど先ほどの「あけおめ」エントリーでそのような場面に出くわしたので、簡単に紹介します。記事の中では、以下のように他の記事へのリンクがたくさん出てきました。

 <p>
  最後に紹介するのは、以下の記事です。
</p>
<ul>
  <li>
    <a href="LDR">http://yusukebe.com/archives/08/05/29/105145.html">LDR 購読者 1000人を突破しました</a>
  </li>
</ul>

そこで、このリンクの横に「10users」といった被はてなブックマーク数を表示した方が、見てる人にとってわかりやすいかなと思いました。手作業で HTML を書いて表示させればいいのですが、めんどかったので Perl で捨てスクリプトを書いてサクっとその作業を終わらせました。捨てスクリプトってのは基本、その場限りで使うようなものなんで、今自分が持っている知識の範疇であんまり後先考えず作って、とりあえず今動けばいいというスタンスのコードという個人的認識です。

スクリプトは以下の通り。基本正規表現の処理です。

 use strict;
use warnings;
use Encode;
use utf8;

my $filename = $ARGV[0] || 'text.txt';
open my $fh, '<', $filename or die $!;
for my $line (<$fh>){
    if($line =~ m!href="(.+?)".*>(.+?)</a>!){
        my $permalink = $1;
        my $title = decode("utf8",$2);
        my $html = <<"EOF";
<a href=\"$permalink\">$title</a><a href=\"http://b.hatena.ne.jp/entry/$permalink\"><img src=\"http://b.hatena.ne.jp/entry/image/$permalink\" alt=\"このエントリーのはてなブックマーク件数\"></a>
EOF
        print encode("utf8",$html);
    }else{
        print $line;
    }
}

よろしくない点が混じっている可能性ありますが、それは捨てスクリプトということでご勘弁を。さて、こうして手作業ではなく、Perl を使って処理をさせることには以下いくつかの利点があると思います。