日本語処理の注意

Perlによる文字操作

コンピュータでは日本語を表す（記録する）ためには、様々な規格（文字コード）が存在します。システムによってはキャラクターセット等とも言いますが、一例では以下のような規格があります。

• ISO-8859-1
• ISO-2022-JP
• Shift_JIS
• EUC-JP
• UTF-8
• UTF-16

日本語などのマルチバイト文字（文字を複数のバイトで表示する）をPerlで適切に扱うに、どのような文字コードををどのような文字コードで処理して、何処のような文字コードで出力するか。を適切に行わないと「文字化け」になります

処理イメージ

例えば、UTF-8のファイルをパソコンで処理します。パソコンの内部はUTF-8で処理を行い、ファイル出力はSJIS、画面出力はCP932（Windowsの標準出力）。と言うように、どのようなファイルをどのように処理するか正しく考えなければなりません。

簡単なプログラム説明

動作を説明するために簡単なPerl処理と出力について説明する。

---

サンプルプログラム

use strict;
use warnings;
use utf8;#utf8フラグを立てる
use Encode;

my $string = 'アイウエオ';

print utf8::is_utf8($string) ? 'flagged' : 'no flag';

print "\n";

print encode('shiftjis', $string);#UTF-8フラグを外してshiftjisで出力
print "\n";
print encode('cp932', $string);#UTF-8フラグを外してcp932で出力
print "\n";
print encode('utf8', $string);#UTF-8フラグを外してUTF-8で出力
print "\n";
print $string;#そのまま標準出力
print "\n";

---

例１

• プログラムはShift-JISで保存
• use utf8;はコメントアウト

結果

no flag←utf8フラグ判定は無し
?A?C?E?G?I←UTF-8フラグを外してshiftjisで出力
?A?C?E?G?I←UTF-8フラグを外してcp932で出力
ﾂアﾂイﾂウﾂエﾂオ←UTF-8フラグを外してUTF-8で出力
アイウエオ←そのまま標準出力

当たり前ですが、そもそもShift-JISで保存している文字はShift-JISですのでそのまま、標準出力される文字が正しく表示されます

---

例２

• プログラムはUTF-8で保存
• use utf8;はコメントアウト

結果

no flag
??￠????????¨???
a?￠a??a?|a?¨a?a
ﾃ｣ﾂつ｢ﾃ｣ﾂつ､ﾃ｣ﾂつｦﾃ｣ﾂつｨﾃ｣ﾂつｪ
繧｢繧､繧ｦ繧ｨ繧ｪ

プログラム中のmy $string = 'アイウエオ';はUTF-8になりますので、標準出力にUTF-8で出力しますので文字化けします

---

例３

• プログラムはShift-JISで保存
• use utf8;を有効

結果

flagged←utf8フラグ判定は有効
?A?C?E?G?I←UTF-8フラグを外してshiftjisで出力
?A?C?E?G?I←UTF-8フラグを外してcp932で出力
アイウエオ←UTF-8フラグを外してUTF-8で出力
Wide character in print at C:\Users\home\Desktop\g-mon\prog\日本語.pl line 20.
アイウエオ←UTF-8フラグが付いた文字列をprintするためエラーがでる

プログラム中のmy $string = 'アイウエオ';はShift-JISになります。UTF-8フラグを外してUTF-8で出力が正しく表示されるのが分かりませんが、あまり良い出力では無いと思います。UTF-8フラグが付いた文字列をそのまま出力しようとするためWide character in print at...が出ます

---

例４

• プログラムはUTF-8で保存
• use utf8;を有効

結果

flagged←utf8フラグ判定は有効
アイウエオ←UTF-8フラグを外してshiftjisで出力
アイウエオ←UTF-8フラグを外してcp932で出力
繧｢繧､繧ｦ繧ｨ繧ｪ←UTF-8フラグを外してUTF-8で出力
Wide character in print at C:\Users\home\Desktop\g-mon\prog\日本語.pl line 20.
繧｢繧､繧ｦ繧ｨ繧ｪ←UTF-8フラグが付いた文字列をprintするためエラーがでる

これが、一番正しい処理だと思う。

---