Perl5で丸数字とかを正しく扱うために、Encode::EUCJPMSモジュールを使っている。しかし、0.06だとなぜか「eucJP-ms」エンコーディングが定義されない。テストは以下の簡単なコードで行った。

#!/usr/bin/perl -w
 
use Encode qw(from_to);
use Encode::EUCJPMS;
 
#use Encode::Alias;
#define_alias('eucJP-ms' => 'glibc-EUC_JP_MS-2.3.3');
 
while (<>) {
    from_to($_, 'eucJP-ms', 'cp932');
    print;
}

 0.05では問題なく動くが、0.06だと「Unknown encoding ‘eucJP-ms’ at test.pl line 10」と怒られる。コメント部分を生かすと動くので、エイリアスが効いていないのではないかと思われるが、果たして。

 作者の方に質問してみたので回答待ち。


Categories : Tech