小粋空間  -  a cheap joke and a play on words site

Perlで「Wide character in print」というエラーになる場合の対処

Perlで「Wide character in print」というエラーになる場合の対処方法について紹介します。

１．問題点

次のような文字コードがUTF-8で書かれたPerlスクリプト（test.pl）があります。

#!/usr/bin/perl
use Encode;
my $str = "てすと";
print decode( 'utf-8', $str );

このスクリプトを、Windows（Shift_JIS）上で

C:\perl test.pl

と実行すると次のエラーが発生し、出力が文字化けします。

Wide character in print at test.pl line 4.
縺ｦ縺吶→

２．原因

原因は、「UTF-8フラグ」がついた文字列を出力しているためです。

UTF-8フラグの説明については別途エントリーしますが、簡単に言うと外部から入力された文字列を内部文字列に変換したあとに付与されるフラグです。

サンプルの場合、Encode::decodeでUTF-8フラグが付与されてしまいます。

３．対処方法

サンプルコードの場合、UTF-8の文字列をWindows上で表示したいということであれば、次のようにEncode::from_toを利用すればOKです。

#!/usr/bin/perl
use Encode;
my $str = "てすと";
Encode::from_to( $str, 'utf-8', 'sjis' );
print $str;

あるいは、Encode::encodeでUTF-8フラグを除去します。

#!/usr/bin/perl
use Encode;
my $str = "てすと";
my $tmp = decode( 'utf-8', $str );
print encode( 'sjis', $tmp );