DBD::Firebird编码/解码异常：返回字符串未解码问题咨询

问题描述 #

在Perl DBI编程测试场景中，Firebird数据库返回的字符串未被正确解码，需确认该异常属于数据库配置错误，还是Firebird本身的固有运行机制。
测试采用对照逻辑：使用完全一致的字符写入、查询流程，分别连接Firebird与SQLite数据库，对比返回字符串的Perl标量状态与终端输出效果。

测试代码 #

#!/usr/bin/env perl
use warnings;
use 5.10.0;
use utf8;
use open qw( :std :utf8 );
use Devel::Peek;
use DBI;

my ( $db, $dbh, $sth, @array );
my $table = 'test_encoding';
my $create = "CREATE TABLE $table ( name varchar(32) )";
my $insert = "INSERT INTO $table ( name ) VALUES ( ? )";
my $select = "SELECT * FROM $table";
my $value = 'ä';

# 连接Firebird测试
$db = '/home/me/my_firebird_db';
$dbh = DBI->connect(
    "dbi:Firebird:db=$db", 'user', 'password',
    { PrintError => 0, RaiseError => 1, ib_charset => 'UTF-8' }
);
$sth = $dbh->do( "DROP TABLE $table" );
$sth = $dbh->do( $create );;
$sth = $dbh->prepare( $insert );
$sth->execute( $value );
@array = $dbh->selectrow_array( $select );
Dump $array[0];
say $array[0];
say "";

# 连接SQLite对照测试
$db = '/home/me/my_sqlite_db';
$dbh = DBI->connect(
    "dbi:SQLite:db=$db", '', '',
    { PrintError => 0, RaiseError => 1, sqlite_string_mode => 5 }
);
$sth = $dbh->do( "DROP TABLE IF EXISTS $table" );
$sth = $dbh->do( $create );
$sth = $dbh->prepare( $insert );
$sth->execute( $value );
@array = $dbh->selectrow_array( $select );
Dump $array[0];
say $array[0];

运行输出 #

SV = PV(0x2105360) at 0x22628a0
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x22a37e0 "\303\244"\0
  CUR = 2
  LEN = 10
ä

SV = PV(0x2111470) at 0x2121220
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x1f2fed0 "\303\244"\0 [UTF8 "\x{e4}"]
  CUR = 2
  LEN = 10
ä

测试现象说明 #

• Firebird连接配置了参数ib_charset => 'UTF-8'，但返回的Perl标量无UTF8标记，终端输出乱码为ä
• 相同逻辑下SQLite连接配置sqlite_string_mode => 5，返回标量带有正确UTF8标记，可正常输出字符ä

问题结论 #

该异常既不是Firebird数据库配置错误，也不是Firebird服务端的固有运行机制，属于DBD::Firebird驱动的默认处理逻辑：

• 配置的ib_charset=UTF-8仅负责告知驱动与数据库服务端通信时使用UTF-8编码传输字节流，驱动收到字节数据后，默认不会为返回的Perl标量设置UTF8标记，Perl会将其当作无编码的原生字节流处理，最终输出乱码。
• SQLite测试中配置的sqlite_string_mode=5，作用就是显式要求驱动为返回的字符串标量添加UTF8标记，因此输出正常。

修复方案 #

二选一即可：

• 连接Firebird时在连接属性中额外添加ib_enable_utf8 => 1，驱动会自动为返回的所有字符串标量设置UTF8标记，效果与SQLite的sqlite_string_mode=5完全一致。
• 读取到Firebird返回的字符串结果后，手动调用utf8::decode($str)完成解码，为标量添加UTF8标记。

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