昨日のShiftJIS問題

id:miyagawaさんと弾さんからツッコミが入ってしまったw。ひょっとしたら間違えてたかもしれない。ごめんなさい、１０月中は朦朧としてました。cp932も試してみたはずなんだけどなぁ。

ってことで以下スクリプトでテスト

  use strict;

  use Encode;


  binmode(STDOUT, 'utf8');

  foreach my $low (map { sprintf('%2x', $_) } 64..156) {

    my $sjis = eval "qq|\\x87\\x$low|";

    print "\\x87\\x$low -> ", decode('cp932', $sjis), "\n";

  }

おお、動くじゃねぇか。どこの何が問題だったんだろう。Perlは5.8.8、Encodeは2.18っす。ってことで、ShiftJIS::CP932::MapUTFはそれでも駄目な状況の時に