Perl 文字間に￥を入れ文字化けを防ぎたい

質問

いつもお世話になっております。
ご教示お願い致します。

まず下記のソースがあり、

my $TEXT = "<font color=green>これは表示テスト結構";
$TEXT =~ /\Q${TEXT}\E/;
$TEXT =~ s/<[^>]*>//g;
print qq($TEXT\n);

タグを消すソース「$TEXT =~ s/<[^>]*>//g;」これは動いています。
しかし、文字間にバックスラッシュをたすソース「$TEXT =~ /\Q${TEXT}\E/;」
が、きいていないのか、間違っているのかがわからないです。

my $TEXT = "<font color=green>これは表\示\テスト結\構\";
このようにすれば単純にできますが、
正規表現？エスケープシーケンス？での実行をしたいです・・・
どうかお力添えをお願い致します！

回答No.1

chie65535 · ベストアンサー

＞まず下記のソースがあり

ソースの先頭に

use encoding "cp932";

の１行を追加しなさい。

これにより「このソースはシフトJISで書かれています」と指示した事になり、自動的に内部でシフトJISをUTF-8にコード変換して処理する。

すると

my $TEXT = "<font color=green>これは表示テスト結構";

と書いても、文字化けは起きない。

つまり

my $TEXT = "<font color=green>これは表\示\テスト結\構\";

と書く必要もないし、文字間にバックスラッシュを挟む必要もない。

評価点５点（１００点満点）

お礼

お早いご回答ありがとうございます！
できました！！