Perl + Unicode： "Wide Strings"エラー

Question

Windows 7でActive Perl 5.14を実行しています。 変換テーブルを読み込み、ファイルを処理して特定のパターンを他のものに置き換えるプログラムを作成しようとしていますパターン - 上のすべてをUnicode（UTF-8）で表します。ここではプログラムの先頭は次のとおりです。

wide character in print at (eval 155)E:/Active Perl/lib/Perl5DB.pl:640]line 2, <CONVTABLE> line 1, etc... 

なぜそれがある：？

#!/usr/local/bin/perl 
# Load a conversion table from CONVTABLE to %ConvTable. 
# Then find matches in a file and convert them. 
use strict; 
use warnings; 
use Encode; 
use 5.014; 
use utf8; 
use autodie; 
use warnings qw< FATAL utf8  >; 
use open  qw< :std :utf8  >; 
use charnames qw<:full>; 
use feature  qw<unicode_strings>; 

my ($i,$j,$InputFile, $OutputFile,$word,$from,$to,$linetoprint); 
my (@line, @lineout); 
my %ConvTable; # Conversion hash 
print 'Conversion table: opening file: E:\My Documents\Perl\Conversion table.txt'."\n"; 
my $sta= open (CONVTABLE, "<:encoding(utf8)", 'E:\My Documents\Perl\Conversion table.txt'); 
binmode STDOUT, ':utf8'; # output should be in UTF-8 
# Load conversion hash 
while (<CONVTABLE>) { 
    chomp; 
    print "$_\n"; # etc ... 
# etc ... 

それは、この時点で、それが言うことが判明しますか私は、Unicode文字列を正しく処理し、デコードしてUTF-8にエンコードするために必要なすべての処方を実行し実装したと思いますか？ それを修正するには？

TIA

ヘレン

Answer 1

PerlデバッガにはSTDOUTとは異なる独自の出力ハンドルがあります（最終的にはSTDOUTと同じ場所に行くことがあります）。スクリプトの冒頭近くで次のようなことをしたい場合もあります。

binmode $DB::OUT, ':utf8' if $DB::OUT; 

Answer 2

私はこの問題は、あなたが私たちに示されていないコードの一部であることを疑います。私は、次のような事実上、この疑惑をベース：あなたが引用

1. エラーメッセージがat (eval 155)言います。あなたのコードにはevalがありません。

2. がは私たちに示しています上記のコードは、私が入力にUnicode文字が含まれている場合でも、それを実行したときにないは「ワイド文字」の警告を生成しません。私がそれを作ることを可能にする唯一の方法は、use openとbinmode STDOUTの両方の行をコメントアウトすることです。私はLinux上だし、私のPerlは、私は（ないバージョン要件を下げ、unicode_strings featureをオフにしなければならなかったことを意味し、唯一のv5.10.1です：

は確かに、私のテスト環境はあなたに全く同じではありませんあなたが実際にそれを使用しているということです）。それでも、あなたが投稿したコードに問題がないと私は非常に思っています。