eucjp_ms.pm

Perlモジュールを書いてみました。 http://tate.undef.jp/pub/ya-finder2/eucjp_ms.pm 機種依存文字を含むeuc-jpをエンコードできます。 use eucjp_ms; binmode STDOUT,":encoding(eucjp_ms)"; print ... 等として使用します。

encodeを直接呼ぶなら perl -MEncode -e "$a=qq(\x{339d});print Encode::encode('euc-jp',$a,Encode::FB_HTMLCREF);" でHTMLの文字参照を出力できるけど、PerlIOを通す場合はこういう設定はできるのかな?