namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

KOJIMA Mitsuhiro <kojima@xxxxxxxxxxxxxxxxxxx> wrote:

>jcolb は標準的なコマンドではないから、パッケージに含めるか説明しておく方
>がいいでしょうね。
>
># 手元の jcolb は Linux の日本語化 SGML のプロジェクト由来のものだと思い
># ます

Subject: [namazu:00497] Re: tknamazu v1.02 
によると

|ちなみに、ここで呼んでる jcolb は perl のスクリプトで、
|
|#! /usr/bin/jperl
|while(<>) {
|        s/_^H//g;
|        s/^H^H.//g;
|        s/^H.//g;
|        print;
|}
|
|みたいな感じでアンダースコアと二度打ちを削除しています(^H は実際は ctrl+H)。

とのことですが、これなら J のつかない perl でも文字コードが EUCな
らば

while(<>) {
	s/_\x8//g;
	s/\x8{1,2}([\x21-\x7e]|[\xa1-\xfe]{2})//g;
        print;
}

のようにして実現できますよね。この程度なら Tcl でも対応できると思
うのですがいかがなものでしょう。

--
高林 哲 Satoru Takabayashi