nlog(n): サクラが邪魔なエイプリル

Fri April 01, 2011

サクラが邪魔なエイプリル

今年の四月一日のブログは，サクラサクです。是非，拙サイトにお越しください。今年は例年よりも桜の開花が遅れていますが，ここだけは満開です。そしてやはり読みにくくなっております。

■ ■ ■

今年のエイプリルフールは，どこも自粛傾向にある。先月の大地震 (2011年東北地方太平洋沖地震 - Wikipedia) で多くの人が亡くなり，物資は減り，計画停電が行われ，放射性物質が飛び散っているからである。エイプリルフールも停電並に輪番制となるようだ (今年のエイプリルフールは輪番での実行に - スラッシュドット・ジャパン)。

さて，このサイトでは，例年4月1日になると嫌がらせ企画が行われている。気の利いたジョークが思いつかないので，これくらいが精一杯なのである。

今年は，何もやらないつもりだったのだが，「桜を咲かせてみれば?」という妻の提案をそのまま実装することにした。いかにも春らしいではないか。桜の花が満開である。関東地方は，今年2011年は桜の開花が遅れていて，まだ満開になっていない。しかし，ほら，このサイトは満開だよ。

いかんせん読みにくい (思った通りだ)。

桜の花の画像の挿入は，Movable Type のためのプラグインを書くことで実現している。キモは次のサブルーチンである。

sub foolish {
  my $self = $_[0];
  my $text = $_[1];
  my @taglist = (
   '<img src="/mticons/cherryblossom-1.gif" width="18" height="18" alt="Cherryblossom 1" />',
   '<img src="/mticons/cherryblossom-2.gif" width="18" height="18" alt="Cherryblossom 2" />',
   '<img src="/mticons/cherryblossom-3.gif" width="18" height="18" alt="Cherryblossom 3" />',
   '<img src="/mticons/cherryblossom-4.gif" width="18" height="18" alt="Cherryblossom 4" />',
   '<img src="/mticons/cherryblossom-5.gif" width="18" height="18" alt="Cherryblossom 5" />',
   '<img src="/mticons/cherryblossom-6.gif" width="18" height="18" alt="Cherryblossom 6" />'
   );
  srand();
  $text =~ s/(\p{InJapanese})/$1$taglist[rand($#taglist)]/g;
  $self->text($text);
}

6種類の桜の花の画像を用意しておいて，ランダムに選んで日本語文字の後ろに挿入している。半角英数字の後ろには入らないようになっている。画像の HTML タグをリストに入れるのには，もう少しスマートな方法がありそうだが思いつかなかった。

結果は次のようになる。