sqlの出力をはてなダイアリーの表形式に

sql(sqlite)の出力は、こんな感じで、微妙に表(table)にならない。
".header ON"の場合ね。

id|rank|title|artist|date|year|month|week|sales
200906408|8|debut|辻井伸行|10/24|2009|6|4|17105
200906416|16|ラフマニノフ:ピアノ協奏曲第2番|辻井伸行×佐渡裕|10/22|2009|6|4|12000
200906502|2|debut|辻井伸行|10/24|2009|6|5|53248
200906503|3|ラフマニノフ:ピアノ協奏曲第2番|辻井伸行×佐渡裕|10/22|2009|6|5|26904

いちおう、'.mode MODE'で多少はいじれるんですが、フィットするのは無し。html出力も、ちょっと違う。
というわけで、perlで変換。

my $head = <>;
chop $head;
my @headSplit = split(/\|/, $head);
my $header = "|";

foreach my $h (@headSplit) {
        $header .= '*'.$h.'|';
}
print $header."\n";

while (<>) {
        chop;
        print '|'.$_."|\n";
}

こんな感じになりまする。

id rank title artist date year month week sales
200906408 8 debut 辻井伸行 10/24 2009 6 4 17105
200906416 16 ラフマニノフ:ピアノ協奏曲第2番 辻井伸行×佐渡裕 10/22 2009 6 4 12000
200906502 2 debut 辻井伸行 10/24 2009 6 5 53248
200906503 3 ラフマニノフ:ピアノ協奏曲第2番 辻井伸行×佐渡裕 10/22 2009 6 5 26904
ん、pre記法がうまく動かない。中身もパースされちゃうか。 じゃあ、成果だけ。
id rank title artist date year month week sales
200906408 8 debut 辻井伸行 10/24 2009 6 4 17105
200906416 16 ラフマニノフ:ピアノ協奏曲第2番 辻井伸行×佐渡裕 10/22 2009 6 4 12000
200906502 2 debut 辻井伸行 10/24 2009 6 5 53248
200906503 3 ラフマニノフ:ピアノ協奏曲第2番 辻井伸行×佐渡裕 10/22 2009 6 5 26904
まぁ、はてなダイアリーの機能をいろいろ試してるだけなんですがね。 .modeでパイプとか指定できるとスマートなんだけどなぁ。