通过 CPAN Perl DBI:Oracle 返回的缺失/错误字符（缺失变音符号）

Question

环境： Oracle DB 12.2，NLS_LANG：AL32UTF8 Linux 安装了 OracleClient 12.2 的客户端，还安装了 Perl CPAN DBI V：1.636

Windows 10 个客户端与 Oracle 客户端 12.2

实际上我们测试了一个连接 vie 的新应用程序 DBI:Oracle 并注意到特殊字符（例如：ä,ö,ü）丢失/返回不正确。

所以我做了一些测试：在 linux 客户端上：

root@test:~# locale
LANG=de_DE.UTF-8
LANGUAGE=
LC_CTYPE="de_DE.UTF-8"
LC_NUMERIC="de_DE.UTF-8"
LC_TIME="de_DE.UTF-8"
LC_COLLATE="de_DE.UTF-8"
LC_MONETARY="de_DE.UTF-8"
LC_MESSAGES="de_DE.UTF-8"
LC_PAPER="de_DE.UTF-8"
LC_NAME="de_DE.UTF-8"
LC_ADDRESS="de_DE.UTF-8"
LC_TELEPHONE="de_DE.UTF-8"
LC_MEASUREMENT="de_DE.UTF-8"
LC_IDENTIFICATION="de_DE.UTF-8"
LC_ALL=
root@test:~# export NLS_LANG=GERMAN_GERMANY.AL32UTF8
root@test:~# sqlplus connectstring

SQL*Plus: Release 12.2.0.1.0 Production on Mo Nov 4 14:36:14 2019

Copyright (c) 1982, 2016, Oracle.  All rights reserved.

Kennwort eingeben:
Letzte erfolgreiche Anmeldezeit: Mo Nov 04 2019 14:35:53 +01:00

Verbunden mit:
Oracle Database 12c Standard Edition Release 12.2.0.1.0 - 64bit Production

SQL> create table testchar (
  2  ttext varchar2(10));

Tabelle wurde erstellt.

SQL> insert into testchar values ('Ä');

1 Zeile wurde erstellt.

SQL> insert into testchar values ('Ö');

1 Zeile wurde erstellt.

SQL> insert into testchar values ('Ü');

1 Zeile wurde erstellt.

SQL> insert into testchar values ('ß');

1 Zeile wurde erstellt.

SQL> insert into testchar values ('€');

1 Zeile wurde erstellt.

SQL> commit;

Transaktion mit COMMIT abgeschlossen.

SQL> select * from testchar;

TTEXT
----------
Ä
Ö
Ü
ß
€

SQL>

在 windows 客户端：

C:\Users\t>set NLS_LANG=GERMAN_GERMANY.AL32UTF8

C:\Users\t>chcp 65001
Aktive Codepage: 65001.

C:\Users\t>sqlplus connectstring

SQL*Plus: Release 12.2.0.1.0 Production on Mo Nov 4 14:39:43 2019

Copyright (c) 1982, 2017, Oracle.  All rights reserved.

Kennwort eingeben:
Letzte erfolgreiche Anmeldezeit: Mo Nov 04 2019 14:37:11 +01:00

Verbunden mit:
Oracle Database 12c Standard Edition Release 12.2.0.1.0 - 64bit Production

SQL> select * from testchar;

TTEXT
----------
Ä
Ö
Ü
ß
€

SQL>

现在在同一个 linux 客户端上，我编写了一个小的 perl 脚本来演示这个问题：

root@test:~# cat testumlaut.pl
#!/usr/bin/perl
#use strict;
#use warnings;

use DBI;
$ENV{NLS_LANG} = "GERMAN_GERMANY.AL32UTF8";
my $dbh = DBI->connect( connectstring ) || die($DBI::errstr . "\n");
my $sql = 'select * from testchar';
my $sth = $dbh->prepare($sql);
$sth->execute();
while (my @row = $sth->fetchrow_array) {
        print "Umlaut: $row[0]\n";
}

输出看起来像这样

root@test :~# perl testumlaut.pl
Umlaut: ▒
Umlaut: ▒
Umlaut: ▒
Umlaut: ▒
Wide character in print at testumlaut.pl line 12.
Umlaut: €

此时看起来像是 Perl DBI 模块的错误。有人知道如何解决这个问题吗？

感谢您的帮助。

Answer 1

您使用的是 utf8 编码，因此最简单的修复方法可能是这个：

binmode(STDOUT, ":utf8");

在打印语句之前。这个问题的更多细节How can I output UTF-8 from Perl?

通过 CPAN Perl DBI:Oracle 返回的缺失/错误字符（缺失变音符号）

Missing / Wrong characters returnd via CPAN Perl DBI:Oracle ( missing umlauts)

oracle

perl

encoding

character

dbi