[Mew-dist 163] Re: encoded-word and space

[Kazumasa Utashiro]

From: NAKAMURA Motonori <motonori at example.com>
Subject: [Mew-dist 159] Re: encoded-word and space
Date: Mon, 25 Nov 1996 19:46:49 +0900

> まったく意識的ではなく、見落としていました。

最初から JIS でデータを作った場合との整合性を考えると、一般的なエンコー
ディングに合わせた方がいいんでしょうね。

> utashiro> ちなみに、jcode.pl-2.0 では抜いています。綺麗な方法ではないけど。
> 
>   s/$re_asc($re_jp|$re_kana)/$1/go;
> 
> ですね。このアルゴリズムだと、これしかないのかなぁ。

ないわけでもない。"The Art of Computer Programming" を目指すとすれば、
どちらを取るべきか...

;#
;# EUC to JIS
;#
sub euc2jis {
    local(*_, $opt, $n) = @_;
    &euc2euc(*_, $opt) if $opt;
    s/($re_euc_kana)+|($re_euc_c)+/&_euc2jis($&, $')/geo;
    $n;
}
sub _euc2jis {
    local($_) = $_[0];
    local($pre) = tr/\216//d ? $esc_kana : $esc_jp;
    local($post) = $_[1] =~ /^($re_euc_kana|$re_euc_c)/o ? "" : $esc_asc;
    $n += tr/\241-\376/\041-\176/;
    $pre . $_ . $post;
}

--utashiro