Encode.pmで「髙」(ハシゴ高)が文字化けする
Perl5.8で、EUCで保存されたテキストファイルを読み込み、Shift-JISで保存しようとしてます。
EUCからShift-JISへの変換は、Encode.pmを使用しています。
テキストファイルに「髙」(ハシゴ高 0xFCE2)や「﨑」が入っていた場合、変換されたデータは「?」(0x3F)になってしまいます。
「髙」や「﨑」をPerlを使用してEUCからShift-JISする方法はありませんでしょうか?
======================================
use Encode qw/ from_to /;
open IN, "data.txt";
$data = <IN>;
close IN;
from_to( $data, 'euc-jp','shiftjis');
open OUT, ">data2.txt";
print OUT $data;
close OUT;
======================================
宜しくお願いします。
お礼
UTF-8でも表現できるのですね。 大変参考になりました。 ありがとうございます。