知らないことがあってもへっちゃらさ

最近のお気に入りのボールペンは、Juice ＋ up !!

プライベートの筆記具では「万年筆！ 万年筆！!」と言っておりますが、お仕事の場ではボールペン 100％ でございます。

Perl と Encode と シフトJIS と 機種依存文字

Windows の機種依存文字を処理してハマったので覚え書きです。

Perl で普通にシフトJISを扱う場合、

use Encode; my $str_ShiftJIS=""; # # $str_ShiftJIS に文字列をセットしておく・・・ # # 内部文字コードに変換 my $str_flagged utf8 = decode('Shift_JIS', $str_ShiftJIS); # # $str_flagged utf8 をいろいろ処理・・・ # # 文字コードをシフトJISに戻して my $str_ShiftJIS = encode('Shift_JIS', $str_flagged utf8); # 出力 print $str_ShiftJIS;

みたいにするわけだけど、Encode の 'Shift_JIS' の変換ってシフトJISの拡張に当たる機種依存文字には対応してないんですよね。だから「①」とかを decode して encode すると文字化けしちゃうわけですよ。

にわかは楽しい！

もともとが飽きっぽいのだと思うのですが、一つの趣味がなかなか長続きしないブログ主でございます。