日本語処理の注意

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するためエラーがでる

---