Perl DBI/DBD连接Oracle 11g2时错误信息乱码问题求助

问题本质：你碰到的是典型的双重编码问题——Oracle返回的错误信息采用Latin-1（ISO-8859-1）编码，被Perl错误识别为UTF-8字符串，输出时再次按UTF-8编码，就导致é变成é这类乱码。

解决方案一：连接时指定Oracle字符集 #

从根源上避免编码不匹配，在DBI连接时通过ora_charset属性强制指定Oracle返回UTF-8编码的信息：

use DBI;

# 可选：先设置环境变量确保Oracle客户端端用UTF-8
$ENV{NLS_LANG} = 'AMERICAN_AMERICA.AL32UTF8';

my $dbh = DBI->connect(
    "dbi:Oracle:host=your_host;sid=your_sid",
    'username', 'password',
    {
        RaiseError => 0,
        PrintError => 0,
        ora_charset => 'AL32UTF8', # 关键参数：指定Oracle返回UTF-8编码
    }
) or die $DBI::errstr;

解决方案二：手动修正已乱码的错误信息 #

如果无法修改连接参数，可对捕获到的错误信息进行编码修正，还原正确的UTF-8：

use Encode;

eval {
    # 触发错误的示例操作
    $dbh->do("SELECT * FROM non_existent_table");
};

if ($@) {
    my $raw_error = $@;
    # 修正双重编码：将被错误解析的UTF-8字符串转回Latin-1字节，再重新解码为UTF-8
    my $fixed_error = Encode::decode('iso-8859-1', Encode::encode('utf-8', $raw_error));
    
    # 以UTF-8编码写入文件
    open my $error_fh, '>:utf8', 'error_log.txt' or die "无法打开错误文件: $!";
    print $error_fh $fixed_error;
    close $error_fh;
}

解决方案三：确保输出流强制UTF-8编码 #

无论采用哪种方案，都要确保输出到文件或控制台时使用UTF-8编码，避免系统默认编码干扰：

• 写入文件时明确指定:utf8模式（如上述代码所示）
• 输出到控制台时，在脚本开头添加：

  use open qw(:std :utf8);
  

  这会让Perl的标准输入/输出/错误流默认使用UTF-8编码。

验证方法 #

修正后，用文本编辑器打开错误文件并设置编码为UTF-8，é等特殊字符应正常显示；也可以用hexdump命令查看字节：

• 正确的é UTF-8字节为 C3 A9
• 乱码的é字节为 C3 83 C2 A9

内容的提问来源于stack exchange，提问作者Chazg76