namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

Ken-ichi Hirose <hirose@xxxxxxxxxxxxxxxxxxxx> wrote:

>>とのことですが、これなら J のつかない perl でも文字コードが EUCな
>>らば
>>while(<>) {
>>	s/_\x8//g;
>>	s/\x8{1,2}([\x21-\x7e]|[\xa1-\xfe]{2})//g;
>>        print;
>>}
>>のようにして実現できますよね。この程度なら Tcl でも対応できると思
>>うのですがいかがなものでしょう。
>
>と言う事で jcolb の機能を取り込んだものを beta1 として置いておきます。

後になって気付いたのですが

	s/\x8{1,2}([\x21-\x7e]|[\xa1-\xfe]{2})//g;
は
	s/\x8{1,2}([\x20-\x7e]|[\xa1-\xfe]{2})//g;
                      ^^
の方が良いかもしれません (空白も含めるために)。

--
高林 哲 Satoru Takabayashi