为什么 DBI 会隐式地将整数更改为字符串？

我有一个具有以下结构的 MySQL 表。

alid       bigint(20),
ndip       varchar(20),
ndregion   varchar(20),
occ_num    int(3),
Delta_Flag int(1)

从表中选择数据后，我将获取所有引用的数据并作为字符串值。

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use FindBin;
use lib $FindBin::Bin;
use Database;

my $pwd = $FindBin::Bin;

my $db  = Database->new( 'mysql', "$pwd/config.ini" );
my $db1 = Database->new( 'mysql', "$pwd/config2.ini" );

my @tables = qw( AutoTT_AlarmStatus_Major1 );

for my $table ( @tables ) {

    my $query_select = "SELECT alid, ndip, ndregion, occ_num, Delta_Flag FROM $table LIMIT 1";
    my $result = $db->db_get_results( $query_select );

    print Dumper( $result );

    for my $item ( @{$result} ) {

        # Here I want to prepare, bind and insert this data
        # into other table with same structure
    }
}

数据库.pm

sub db_get_results {
    my $self = shift;
    my $qry  = shift;

    my $sth  = $self->{dbh}->prepare( $qry );
    $sth->execute();

    my @return = ();
    while ( my @line = $sth->fetchrow_array ) {
        push @return, \@line;
    }

    return \@return;
}

Output:

$VAR1 = [
          [
            '1788353',
            '10.34.38.12',
            'North Central',
            '1',
            '1'
          ]
        ];

Why is DBI隐式将所有整数转换为字符串？

正如 @choroba 在他的回答中指出的那样，DBI 并未对数据进行任何处理。它只是传递驱动程序模块（在您的情况下为 DBD::mysql）返回的内容。

In the 一般接口规则和注意事项DBI 文档的部分内容如下：

大多数数据作为字符串返回到 Perl 脚本。 （空值以 undef 形式返回。）这允许处理任意精度的数字数据，而不会损失准确性。请注意，当字符串用作数字时，Perl 可能无法保持相同的精度。

我在配置 Perl 支持 64 位整数很常见之前写过这篇文章，而且长双精度浮点类型也不常见。如今，我建议驱动程序以最“自然”的 Perl 类型返回值，这样不会有数据丢失的风险。

对于一些难以实现的驱动程序，特别是那些支持从单个句柄返回具有不同列数的多个结果集的驱动程序，如 DBD::mysql 所做的那样。

我浏览了一下DBD::mysql 文档但没有看到任何提及这个主题，所以我查看了相关代码我可以在哪里看到当前的 DBD::mysqlis将数字返回为数字。还有很多在更改日志中引用此区域的最新更改.

也许您正在使用旧版本的 DBD::mysql 并且应该升级。