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

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

Posted at February 2,2015 1:55 AM
Tag:[Perl]

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

1.問題点

次のような文字コードが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.
縺ヲ縺吶→

2.原因

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

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

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

3.対処方法

サンプルコードの場合、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 );
関連記事
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)