はてなの名前付きタグの件。

• 日々 文句を書いているうちに、とうとう頭にきて、 不本意ながら quick and dirty な perl script を書いて、 既存の日記約１０年分のハイフンを使った name tag をアンダースコアに変更した。 （ところで一体、何が不本意なんだろう -- はてなが対応せずに、 自分がしてしまったことに、なんだろうけれど、 そんな下らないことに意地を張らなくてもいいのにと、我ながら思う。）
• どんなに quick で dirty なコードか知りたい人もいるかな、と思うので、 みんなの目を汚してしまおう：

  >|perl|
  #!/usr/bin/perl
  
  use Jcode;
  
  sub adj_pics ($);
  sub usage ;
  
  sub execute ($);
  
  $cmd_mv    = "/bin/mv";
  $cmd_rm    = "/bin/rm";
  $cmd_nkf   = "/usr/local/bin/nkf";
  
  $output  = "index.html";
  $tmpfile = "tmp.html";
  
  @argv = @ARGV;
  foreach $i (@argv) {
  	adj_pics($i);
  }
  
  exit 0;
  
  ## sub routines
  
  sub execute ($) {
      my $c = shift;
      print STDERR "$c\n";
      system($c) == 0 or die "failed: $c";
      1;
  }
  
  # adj pics
  sub adj_pics ($) {
      my ($html) = @_;
  
      open(HTMLFILE, "< $html") or die "Cannot open $html";
      open(NEWHTMLFILE, "> $tmpfile") or die "Cannot open $tmpfile";
      while (<HTMLFILE>) {
  	# convert input-line into utf8
  	Jcode::convert ( \$_, "utf8");
  
  	$line = $_;
  
  	if (/<a id="d\d{1,2}-(.*)" name="d\d{1,2}-(.*)">/) {
  	    $old = $1;
  	    if ($old =~ /-/) {
  		$new = $old;
  		$new =~ s/-/_/g;
  		$line =~ s/$old/$new/g;
  	    }
  	}
  	elsif (/<a href="#d\d{1,2}-(.*)">/) {
  	    $old = $1;
  	    if ($old =~ /-/) {
  		$new = $old;
  		$new =~ s/-/_/g;
  		$line =~ s/$old/$new/g;
  	    }
  	}
  	elsif (/<a href="diary\d{4}_\d{2}.shtml#d\d{1,2}-(.*)">/) {
  	    $old = $1;
  	    if ($old =~ /-/) {
  		$new = $old;
  		$new =~ s/-/_/g;
  		$line =~ s/$old/$new/g;
  	    }
  	}
  
  	print NEWHTMLFILE $line;
      }
      close NEWHTMLFILE;
      close HTMLFILE;
      execute ("$cmd_nkf -j $tmpfile > $output");
      execute ("$cmd_rm $tmpfile");
      execute ("$cmd_mv $output $html");
  
      1;
  }
  ||<
    

  （付記：うむ、 HTML ではせっかく escape した文字が、 hw 用に変換した際に 戻っているようで、メタメタだな、もう面倒なので、これは放っておく。 見たい人はこちらへ ……と思ったが、コードを書く方法はきっとあるだろうと見たら スーパーpre記法 というのがあったので、一応そいつで挟んでおく。しかし

  ※「<||」「||>」は必ず行頭になるよう記述してください。

  とかって何が「スーパー」なんだろうな…… local rule は嫌いだ（って、文句言い過ぎ？））
• 使い方は、元データ（つまり infoseek の日記に使っている HTML）を食わせるだけ。 複数のファイルを同時に与えても良いので、 backup をとった後で

  perl html-mod-hatena.pl *.shtml

  一発で終わり。
• どの辺りが手抜きかという解説は、明らかに蛇足だけど一応しておくと、 漢字コードを perl 処理の前に Jcode で utf-8 にしておいて、 できた結果は nkf で jis にもどしてたり、 HTML はきちんと parse などせずに目標のタグの決め打ちだし、 一行に２つのエントリーが発生した時はうまく処理できない （そういうケースはほとんどなかったけど、一ヶ所だけあって、本文に手を入れた。 と言っても、 HTML で書いている当該の行を改行しただけだけど） などなど。まあ一回切りの使い捨てコードなので、文句はなし、と。
• 蛇足ついでに、当の script の来歴を言っておくと、 つまりこれは私がすべて scratch から書いたものではなくて、 大本は、遥か昔の ほそかわたつみさんの 絵日記を吐く script をベースにした自分の script で、 HTML 絡みの quick-and-dirty な処理が必要になる度に そいつから切り出して、手を入れて、と繰り返してきたもの。 故に adj_pics などという subroutine name になっているのです （とは言え、ほとんど原形はとどめていないとは思うけれど）。
• 付記（7/13/2008）： blosxom でも escape してない pre でひどいことになっていた。 ということで diary2blosxom.pl で pre の時に escape するようにした （そう、これまではしていなかったのです）。 diary2hw.pl の方は、スーパーpre記法を噛ましているので、 むしろ escape しない方がいいのかな、と思って放置。 それから、上の matching が greedy なので問題を起こす場合があった。 これ、いつも悩まされるポイントだな。多分、正規表現のd\d{1,2}-(.*) をd\d{1,2}-(.*?) にすればよかったのだろう。 あと、１行に２つの置換が必要な奴は、 何も考えずに script に二回食わせてもよかった。 ついでに diary2blosxom.pl と diary2hw.pl もスーパーpre記法でさらしておく。