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;
======================================
宜しくお願いします。
補足
MS ゴシック MS 明朝 通常使用頻度の高い上記フォントが印字さらません。 一応TTフォントとなっているようなのですが。 DF教科書体W4、DFP中楷書体、DFP特太ゴシック体 等のフォントは印字されます。 宜しくお願い致します。