よく使う文字コード

Encode::JP などで例示されているものの中から、よく使うであろうものをメモ。

utf8
euc-jp
shiftjis
7bit-jis
iso-2022-jp
cp932

テスト環境

Windows XP Professional Service Pack 3
ActivePerl 5.8.8 Build 822
Encode-2.33

サンプル コード

スクリプトは utf8 で保存してください。

#!/usr/local/bin/perl

use utf8;
use strict;
use Encode;

# 文字コード指定付きで入出力それぞれのファイルを開く
open(FHI, '<:encoding(shiftjis)', "./text_sjis.txt");
open(FHO, '>:encoding(utf8)', "./text_utf8.txt");

# 文字コードを変換しながら新しいファイルに転記
print FHO $_ while <FHI>;

shiftjis で書かれたファイル text_sjis.txt の内容を、utf8 に変換しながら text_utf8.txt へ出力します。


Powered by NIVOSIdE

今後 Google Analytics によるアクセス解析に記録を残さない