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;

请注意,文档有此警告:

如果使用'lock tables',则不建议将mysql_auto_reconnect设置为on,因为如果DBD :: mysql重新连接到mysql,则所有表锁都将丢失.关闭AutoCommit时会忽略此属性,并且当AutoCommit关闭时,DBD :: mysql将不会自动重新连接到服务器.

Answer 2

您还可以查看以下主题:http://www.perlmonks.org/？ node_id = 317168

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