DBI を使用して SQL Server データベースに接続し、そこからデータを取得する Perl スクリプトを UNIX で実行しています。スクリプトは次のようになります。
$dbh = DBI->connect("dbi:Sybase:server=$connect;charset=UTF-8", $login, $password) or die("Couldn't connect to $connect as $login/$password:
$DBI::errstr");
$sql = "use mydb";
$sth = $dbh->prepare($sql);
$sth->execute or die("execute failed");
$sth->finish;
$sql = "MyProc \@DATE='1/1/2008'";
$sth = $dbh->prepare($sql);
$sth->execute or die("execute failed");
while (($body) = $sth->fetchrow()) {
print "$body\n";
}
$sth->finish;
$dbh->disconnect if $dbh;
body 変数は、NVARCHAR で非 ASCII 文字を含む列からデータを取得します。クエリは正常に実行されますが、print ステートメントは ????? を吐き出します。非ASCII文字に遭遇したとき。DBI->connect では、文字セットも指定しましたが、うまくいきません。
これを機能させる方法について何か考えはありますか?