perl - 通常不解码到 STDERR 的输出吗？

Question

当我运行这个脚本（或使用 DBD::SQLite 或 DBD::MySQL 的类似脚本）时，看起来返回的错误消息没有被解码。
通常不解码到 STDERR 的输出吗？

#!/usr/bin/env perl
use warnings;
use strict;
use utf8;
use open qw( :encoding(UTF-8) :std );
use DBI;

my $dbh = DBI->connect( "DBI:Pg:dbname=my_test_db", 'username', 'password', {
    PrintError => 0,
    RaiseError => 1,
    AutoCommit => 1,
    pg_enable_utf8 => 1,
} ) or die DBI->errstr;

my $sth = $dbh->prepare( "S☺LECT * FROM abteilung" );
$sth->execute();

输出：

#DBD::Pg::st execute failed: FEHLER:  Syntaxfehler bei »SâºLECT«
#ZEILE 1: SâºLECT * FROM abteilung
#         ^ at ./perl2.pl line 16.

Answer 1

这可能是双重编码的情况。驱动程序使用 UTF-8 对您的查询进行编码，然后将该查询包含在错误消息中，然后您（正确）为输出进行编码。