DBD :: Firebird编码/解码

Question

在此示例中，Firebird返回了未编码的字符串。我是否没有正确设置数据库，或者这是Firebird的工作原理？

#!/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 = 'ä';

$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 "";

$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
ä

Answer 1

如 dbd :: firebird clamp 在注释中，您需要使用

$dbh = DBI->connect(
    "dbi:Firebird:db=$db;ib_charset=UTF8", 'user', 'password',
    { PrintError => 0, RaiseError => 1, ib_enable_utf8 => 1 }

以下方式连接： ib_charset 属性必须在连接字符串中，不在哈希中，其值必须为 utf8 （不是 utf-8 ！），并且您需要在设置 ib_enable_utf8 > 1 到哈希。

具体而言，此部分：

IB_ENABLE_UTF8（特定于驱动程序，布尔值）

将此属性设置为true将导致任何Perl Unicode字符串
以降级为八位字序列的语句参数提供
将它们传递到火鸟之前。

另外，从数据库中检索的任何字符数据（char，varchar，
blob sub_type文本）将升级到perl Unicode字符串。

警告：当前仅当 ib_charset dsn参数为 utf8 时才支持。将来，编码和解码到/
可以实现任意角色集。

示例：

  $ dbh = dbi-＆gt; connect（'dbi：firebird：db = database.fdb; ib_chareet = utf8'，
    {ib_enable_utf8 =＆gt; 1}）;