日本語のマッチング(正規表現)

質問

Perl5.8.7で日本語のマッチングを行おうとしてます．
文字コードはEUCで，[ト]，[ユ]，[ャ]，[ュ]や[ョ]
の後にある[ウ]を[ー(長音)]に変換しようとする
ものです．
例．ヒャクトウバン→ヒャクトーバン

自分の考えた正規表現では成功しませんでした．
if($b[$i] =~ /[\xa5e6\xa5c9\xa5e3
　　　　　　　\xa5e5\xa5e7]\xa5a6/){
$b[$i] =~ s/\xa5a6/\xa1bd/;
}

文字コードを直接書く方法しかないのか，
日本語はマッチングできるのかなどわからないので，
よろしくお願いいたします．

回答No.1

Tacosan · ベストアンサー

うろ覚えですが,
use encoding 'euc-jp';
しておけば正規表現の中でもカタカナって使えませんでしたっけ?

お礼

キーワードで(use encoding 'euc-jp';)を
調べたら、関連するページも出てきて、
できそうです。
ありがとうございました。

回答No.2

BLUEPIXY

#1もおっしゃってますけどencodingを指定しておけば、日本語のマッチングってできますよ。
use encoding 'euc-jp';
$data="ヒャクトウバン";
$data =~ s/([トユャュョ])ウ/$1ー/g;
print $data;

お礼

基本形を示していただいてありがとうございます。
３行目は勉強になりました。