警告：MYSQL_OPT_RECONNECT 已弃用，并将在未来版本中删除

Question

正如我在here所看到的，从MySQL 8.0.34开始，自动重新连接功能已被弃用。我有很多 Perl 脚本连接到 MySQL 数据库，类似于：

my $dbh = DBI->connect( "DBI:mysql:database=$db_name;host=$db_host",
                         $db_user, $db_pass, {'RaiseError' => 1,
                         mysql_enable_utf8 => 1} );

现在发出警告：

警告：MYSQL_OPT_RECONNECT 已弃用，并将在未来版本中删除。

我尝试将 Perl 代码更改为：

my $dbh = DBI->connect( "DBI:mysql:database=$js_db_name;host=$js_db_host",
                         $js_db_user, $js_db_pass, {'RaiseError' => 1,
                         mysql_enable_utf8 => 1, mysql_auto_reconnect => 0} );

但警告仍然存在。我已尝试将

reconnect=false

添加到配置文件的

[client]

部分，位于

/etc/my.cnf

，如建议的 here 所示。也没有成功。

我什至尝试更改 MySQL 的 Perl DBI 驱动程序，其代码如下 (

mysql.pm

):

    if ($this && ($ENV{MOD_PERL} || $ENV{GATEWAY_INTERFACE})) {
        $this->{mysql_auto_reconnect} = 1;
    }

避免将

mysql_auto_reconnect

属性设置为

1

。但这也行不通。可能有额外的代码，但如果可能的话我会避免更改标准库。

我尝试更新 DBI 和 DBD::mysql，但它们似乎是最新的：

$ cpanm DBI
DBI is up to date. (1.643)
$ cpanm DBD::mysql
DBD::mysql is up to date. (4.050)

任何打开连接的 Perl 脚本都会向 stderr 抛出消息。

DBD::mysql 的行为记录如下：

该属性决定如果连接丢失，DBD::mysql是否会自动重新连接到mysql。该功能默认关闭；但是，如果设置了 GATEWAY_INTERFACE 或 MOD_PERL 环境变量，DBD::mysql 将打开 mysql_auto_reconnect。如果使用“锁表”，则不建议将 mysql_auto_reconnect 设置为 on，因为如果 DBD::mysql 重新连接到 mysql，所有表锁都将丢失。当 AutoCommit 关闭时该属性被忽略，并且当 AutoCommit 关闭时，DBD::mysql 不会自动重新连接到服务器。 还可以通过将 $dbh 的 mysql_auto_reconnect 属性传递到 DBI-connect> 的 %attr 散列中来设置它的默认值。 请注意，如果您使用的模块或框架为您执行重新连接（例如修复模式下的 DBIx::Connector），则该值必须设置为 0。

但我希望能够通过设置

mysql_auto_reconnect => 0

来绕过它。这是必须显式设置的，因为 MySQL 现在默认设置为不重新连接：

$ mysql --help | egrep "^reconnect"
reconnect                                 FALSE

有什么想法可以禁用重新连接功能并消除警告吗？

Answer 1

DBD::mysql 总是将 MYSQL_OPT_RECONNECT 设置为 false，您的代码无法更改它。请参阅：https://github.com/perl5-dbi/DBD-mysql/issues/354