Jcodeで変換できません。。。

質問

下記のCGI（文字コードはutf-8）を作成したのですが、正常に表示されません。
～を上手に判定できていないということでしょうか？？？
また、もし、正しく変換できないのであれば、Jcodeで変換できない文字の一覧などあれば助かります。

分かる方、何卒、宜しくお願い致します。

#!/usr/bin/perl

print "Content-type: text/html;charset=Shift_JIS\n\n";
$str = "１～１０";
use Jcode;
Jcode::convert( \$str,"sjis","utf8");
print $str;

表示された結果
１?１０
となりました。

回答No.1

twinkleluz · ベストアンサー

アンポンタンなマイクロソフトがShift-JIS(正確にはCP932という文字コード)と
UTF-8上の「～」のマッピングを間違えたのが原因で起こる現象です。
Jcodeだけでは対応できません。

一番手軽な対策は、Encodeモジュールを使うことです。
Perl5.8以上のバージョンなら標準でインストールされています。
以下のように、文字コードを'sjis'ではなく'cp932'とすることで正しく変換できます。

#!/usr/bin/perl

print "Content-type: text/html;charset=Shift_JIS\n\n";
$str = "１～１０";
use Encode;
Encode::from_to($str,'utf8','cp932');

print $str;

お礼

回答いただきありがとうございます！！
とても、たすかりました！！