EUC環境で作られたPerlスクリプトでの文字化け対応

いまだに文字化けの修正依頼があるので忘れないようにメモしときます。

CPANから日本語文字コード変換のモジュールをインストール

$ cpan
cpan> install Unicode::Japanese

Shift_JISからEUC-JPへ文字コードを変換

# use Jcode; 
use Unicode::Japanese;

# Jcode::convert(\$value, "euc", "sjis");
# sjis -> utf8
$value = Unicode::Japanese->new($value, 'sjis')->get;
# utf8 -> euc
$value = Unicode::Japanese->new($value)->euc;