DBIモジュールと Perl5.8

質問

Perl5.8のエンコードが理解できずに困っております。
MySQLでは、utf8の文字コードのデータがあります。
以下のスクリプトを実行させると、
Wide character in print at C:/usr/local/site/lib/DBI.pm line 1008.
となります。
対処方法はあるのでしょうか？

use utf8;
use strict;

use DBI;

my $dbh = DBI->connect("dbi:mysql:dbname=test", "root", "", {
AutoCommit=>1, PrintError=>1, RaiseError=>1}
);
my $fname = "test.txt";
my $sth = $dbh->prepare("select id, namae from test order by id asc;");
$sth->execute();

# 出力ファイルを開く。
open FILE, ">" , $fname or die "Can't open $fname: $!";
# 整形された結果をファイルにダンプする。
my $rows = $sth->dump_results(80, "\n", ",", \*FILE);
# 出力ファイルを閉じる。
close FILE or die "Error closing result file: $!\n";

$dbh->disconnect();

回答No.1

ximt397 · ベストアンサー

binmode(FILE,':utf8');
を追加してはどうでしょう。