Perl dbi 断开连接时重新连接

Question

我搜索过谷歌，但找不到我认为简单问题的答案。

我有一个 Perl 代码（下面的示例），每 3 秒获取一次数据，并将接收到的数据更新到 MySQL 数据库中，但有时 MySQL 数据库不可用，脚本会死掉。如果MySQL连接失败，如何重新连接？

use DBD::Mysql;

sub updateMysqlDB{
my $connect = DBI->connect("dbi:mysql:$database:$host", 
                        $user,
                        $pw,
                        {RaiseError => 1}
                        );
$myquery = "My sql query to insrt data into columns";
$query_handle=$connect->prepare($myquery);
$query_handle->execute();
$connect->disconnect;
}

while (1) {

if data received call updateMysqlDB ();

else wait for data { sleep 3 ;}
}

Answer 1

DBD::mysql 驱动程序（DBI 用于 MySQL 数据库） ) 支持属性 mysql_auto_reconnect。要打开它，只需执行

$connect->{mysql_auto_reconnect} = 1;

请注意，文档有此警告：

如果使用“锁表”，则不建议将 mysql_auto_reconnect 设置为 on，因为如果 DBD::mysql 重新连接到 mysql，所有表锁都将丢失。当 AutoCommit 关闭时该属性被忽略，并且当 AutoCommit 关闭时，DBD::mysql 不会自动重新连接到服务器。

Answer 2

您还可以查看此线程： http://www.perlmonks.org/?node_id=317168

这讨论了处理“MySQL 服务器已消失”问题的方法，但一些答案也适用于您的问题。除了 mysql_auto_reconnect 开关之外，您还可以使用那里的建议。