濁音だけ赤文字に変える方法

羽 1999/05/30(日) 14:54:49
入力された文章の濁音をすべて赤文字に変えたいです。
$comment =~ s/が/が/g;
$comment =~ s/ぎ/ぎ/g;
$comment =~ s/ぐ/ぐ/g;
 "
 "
 "
$comment =~ s/ぼ/ぼ/g;
というふうに一つづつ処理しようかと思っているのですが、
これだと処理が重くなりそうなので、
効率の良い変換方法があれば教えてください。

変換の対象となるコメント文は５０文字程度です。

Aurai 1999/06/01(火) 07:43:30
$comment =~ s/が|ぎ|ぐ|げ|...../$1/g;
でどうでしょう

とほほ 1999/06/01(火) 23:20:13
$comment =~ s/(が|ぎ|ぐ|げ|.....)/$1<\/font>/g;
ですね。確固とバックスラッシュが抜けています。

しかし、このままだと、漢字の第二バイトと次の漢字の第一バイトが
たまたま「がぎぐげご・・・」とマッチして誤変換を起こすことがあ
りそうですね。

$comment =~ s/([\x00-\x7f]|[\x80-\xff][\x00-\xff])/&func($1)/eg;
で漢字を１文字ずつ切り出して、func()サブルーチンで処理するか・・・

Aurai 1999/06/02(水) 00:12:09
……寝ぼけてましたね
お恥ずかしい

[上に] [前に] [次に]