Jcode 2.0
最近、Jcode 2.0 が出ました。Perl5.8以降で動かすと Encodeのラッパーになります。
use utf8; use Jcode; # Jcode 2.00 my $str = "てすと"; # UTF8フラグ付きの文字列 print $str; # 警告 print Jcode::jcode("てすと")->euc; # UTF8フラグ付き -> バイト列 print Jcode::jcode("てすと")->utf8; # UTF8フラグ付き -> バイト列 while(<>){# use open をしていないので、バイト列を読み込む print Jcode::Jcode($_)->euc; # バイト列 -> バイト列 }