Perl DBI::fetchrow_array() 为 NULL 提供空而不是 undef

Question

迁移到新服务器后，在执行 SELECT 查询时，如果请求的列值为 NULL，Perl 的 DBI::fetchrow_array() 返回看似空字符串：defined() 返回 1 和length() 返回 0。

我读到的所有内容都告诉我，我应该从 NULL 中获取 undef，这确实是它在我的旧服务器上的工作方式。新服务器有一个 MySQL 数据库的副本，我使用 Sequel Pro 的 Export SQL 和 Import SQL 功能迁移了该数据库，这是一个 MySQL gui我在我的 Mac 上运行。对于这两个数据库，有问题的值在 Sequel Pro 中清楚地显示为灰色 NULL，如果我以交互方式运行 mysql，则显示为 NULL。例如，请参阅此记录中的name：

mysql> SELECT * from trials WHERE id = 26069 ;
+-------+----------+-----------+---------+--------+ ...
| id    | language | numTrials | name    | status | ...
+-------+----------+-----------+---------+--------+ ...
| 26069 | en       |         3 | NULL    | Done   | ...
+-------+----------+-----------+---------+--------+ ...
1 row in set (0.00 sec)

我的旧服务器正在运行旧包：

• Perl 5.10.1 与 5.22.1
• DBI 1.634 与 1.636
• DBD::mysql 4.022 与 4.033

这是我在fetchrow_array附近的代码：

@result = $statementHandle->fetchrow_array ;

for my $value (@result) {
    if (! utf8::is_utf8($value)) {
        utf8::decode($value) ;

        # Log values for debugging the NULL/undef issue:
        my $aValue = $value ;
        my $len = length($aValue) ;
        if (!defined($value)) {
            $aValue = "<unnndefined>" ;
        }
        print {*::STDLOG} info => "daValue l=$len : $daValue\n" ;
    }
}

非常感谢任何可以提出建议的人！

Answer 1

您的代码将产生警告

Use of uninitialized value in subroutine entry

您对utf8::decode($value) 的调用尝试将$value 转换为字符串。如果您将其传递给undef，则该值将被视为空字符串（带有随附的警告）并按此方式解码和存储

在条件语句中包含所有这些代码似乎很奇怪。当然你只是想要

utf8::decode($value) if $value and not utf8::is_utf8($value);

然后剩下的代码应该独立于字段的编码状态？

更好的是，您应该确保DBI 在进出数据库的过程中自动编码和解码字符串，方法是将选项{mysql_enable_utf8mb4 => 1} 添加到数据库connect 调用中。您还需要将CHARACTER SET utf8mb4 添加到CREATE TABLE 或CREATE DATABASE 语句中。 （不要使用CHARACTER SET utf8；这是真正的UTF-8 的子集，每个字符限制为三个字节。）当然，如果需要，您可以在初始创建后ALTER TABLE。