編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

文字コードの操作 - Encode

UTF8フラグなし → UTF8フラグ付き

my $str = Encode::decode('sjis',$bytes); # $bytesの文字コードはSJISと仮定する

UTF8フラグ付き → (文字コード変換)→ UTF8フラグなし

my $bytes = Encode::encode('euc-jp',$str); # $bytesの文字コードはEUC-JPに変換される

UTF8フラグなし → (文字コード変換)→ UTF8フラグなし

Encode::from_to($bytes,'sjis','euc-jp'); # $bytesの文字コードはSJISからEUC-JPへ破壊的に変換される

どの文字コードか調べる

my $enc = Encode::Guess::guess_encoding($text,qw/euc-jp sjis/);  # $textはUTFフラグ付きでもなしでもよい
                                                                 # utf-8はデフォルトなので指定は不要
print $enc->name,"\n";                                           # "euc-jp"などと表示される

UTF8フラグ付き →(文字コード変換)→ UTF8フラグ付き

$text = Jcode->new($text,'utf-8')->euc; # UTF8からEUC-JPへの変換される
                                        # $textはUTFフラグ付きでもなしでもよい

参考(perldoc)


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-08-08 (月) 06:24:26 (2447d)