Perl fetchrow_hashref 结果是不同的整数与字符串值

Posted 2023-03-24

【中文标题】Perl fetchrow_hashref 结果是不同的整数与字符串值

【英文标题】：Perl fetchrow_hashref results are different integer vs. string values

【发布时间】：2020-02-07 06:34:25

【问题描述】：

我真的需要你的帮助来理解下面的 perl 示例代码：

#!/usr/bin/perl

# Hashtest

use strict;
use DBI;
use DBIx::Log4perl;
use Data::Dumper;
use utf8;

if (my $dbh = DBIx::Log4perl->connect("DBI:mysql:myDB","myUser","myPassword",
            RaiseError => 1,
            PrintError => 1,
            AutoCommit => 0,
            mysql_enable_utf8 => 1
        ))


    my $data = undef;
    my $sql_query = <<EndOfSQL;
SELECT  1
EndOfSQL
    my $out = $dbh->prepare($sql_query);
    $out->execute() or exit(0);
    my $row = $out->fetchrow_hashref();
    $out->finish();

    # Debugging
    print Dumper($row);

    $dbh->disconnect;
    exit(0);


1;

如果我在两台机器上运行这段代码，我会得到不同的结果。

机器 1 上的结果：（我需要整数值的结果）

arties@p51s:~$ perl hashTest.pl 
Log4perl: Seems like no initialization happened. Forgot to call init()?
$VAR1 = 
          '1' => 1
        ;

机器 2 上的结果：（由于字符串值而导致问题的结果）

arties@core3:~$ perl hashTest.pl
Log4perl: Seems like no initialization happened. Forgot to call init()?
$VAR1 = 
          '1' => '1'
        ;

正如您在机器 1 上看到的，来自 MySQL 的值将被解释为整数值，而在机器 2 上则被解释为字符串值。 我在两台机器上都需要整数值。而且后面不能修改hash，因为原来的代码值太多了，必须改...

两台机器都使用 DBI 1.642 和 DBIx::Log4perl 0.26

唯一的区别是 perl 版本机器 1 (v5.26.1) 与机器 2 (v5.14.2)

所以最大的问题是，我怎样才能确保我总是得到哈希中的整数作为结果？

2019 年 10 月 10 日更新：

为了更好地展示问题，我改进了上面的例子：

...
use Data::Dumper;
use JSON;  # <-- Inserted
use utf8;
...

...
print Dumper($row);

# JSON Output
print JSON::to_json($row)."\n"; # <-- Inserted

$dbh->disconnect;
...

现在机器 1 上的输出是 JSON 输出的最后一行：

arties@p51s:~$ perl hashTest.pl 
Log4perl: Seems like no initialization happened. Forgot to call init()?
$VAR1 = 
          '1' => 1
        ;
"1":1

现在机器 2 上的输出是 JSON 输出的最后一行：

arties@core3:~$ perl hashTest.pl
$VAR1 = 
          '1' => '1'
        ;
"1":"1"

你看，Data::Dumper 和 JSON 都有相同的行为。正如我写的那样，+0 不是一个选项，因为原始哈希要复杂得多。

两台机器都使用 JSON 4.02

【问题讨论】：

Data::Dumper 认为它是字符串还是数字无关紧要（这是最有可能发生变化的事情）。在 Perl 中，两者兼而有之。您在真正重要的地方使用什么输出？

这不是 Data::Dumper 的事情，因为 JSON::to_json 有“相同”的区别！我需要 json 输出的 hashresult。并且比在 jquery / bootstrap 中以下 modal.find('.modal-body input#checkbox').prop('checked', objData.checked);如果 objData.checked 0 或 1（整数）一切正常，但“0”或“1”始终为“真”-> 太糟糕了......

您能否显示受此数字与字符串 (?) 影响的实际代码，或者任何问题？谢谢你的例子，但Dumper 对数据做了一些不重要的事情，你并不关心它——你提到的 JSON 是怎样的（以及它的值是如何使用的？），如果这有问题吗？跨度>

明确地说，尝试Cpanel::JSON::XS::Type 指定您的值应该是什么类型，或者在它们原地添加 0 以强制它们被任何 JSON 库解释为数字。

按照建议，在结果中添加 +0 会将其转换为数字。如果您想在没有硬编码表的情况下以编程方式执行此操作，您可以使用“mysql_is_num”，但我从未尝试过。更多信息在这里：***.com/questions/40800205/…

【参考方案1】：

@Nick P ：这就是您链接的解决方案 Why does DBI implicitly change integers to strings? ，两个系统上的 DBD::mysql 都不同！所以我在机器 2 上从版本 4.020 升级到版本 4.050，现在两个系统都有相同的结果！整数就是整数 ;-)

所以现在两台机器上的结果都是：

$VAR1 = 
          '1' => 1
        ;
"1":1

谢谢！