文字化け対策

質問

sjisで保存されたファイルを読み込んで、別ファイルに書込みを行ったところ、能等の文字が文字化けを起こしました。

open(IN,"$file");
my $data = <IN>;
close(IN);

$data=~s/\\//g;

open(OUT,">$file2");
print OUT $data;
close(OUT);

莫大なソース量だったので、原因を探すのに時間がかかりましたが、一つ一つ消去しながら探したところ、
$data=~s/\\//g;
これを消すことで解消しました。

文字化けさせずに\を消すにはどのように書けばいいのでしょうか？

回答No.1

Tacosan · ベストアンサー

perl のバージョンにもよりそうなところだがいったん内部コードに変換するのが簡単じゃないかな.

お礼

ご回答有難うございます。
教えていただいた通り、内部コードに変換したところ、解決出来ました。