文字化け対策

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 回答日時： 2011/06/21 16:53

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

この回答へのお礼

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

お礼日時：2011/06/22 11:03