perl dbi再接続時に再接続

Question

私は検索グーグルがありますが、私は簡単な憶測であると思う答えを見つけることができませんでした。

3秒ごとにデータを取得し、受信したデータをMysqlデータベースに更新するperlコード（下記の例）がありますが、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

また、このスレッドを見ることができます：http://www.perlmonks.org/?node_id=317168

これは、「MySQLサーバが離れて行ってしまった」問題に対処する方法を説明しますが、いくつかの答えは、あまりにもあなたの問題に適用されます。 mysql_auto_reconnectスイッチに加えて、そこの推奨事項を使用することができます。

Answer 2

DBD::mysqlドライバは（DBIは、MySQLデータベースに使用する）属性mysql_auto_reconnectをサポートしています。ちょうどドキュメントはこの警告持っていることを

$connect->{mysql_auto_reconnect} = 1; 

注意を実行し、それをオンにするには：「ロックテーブルは」なぜならた場合に使用されている場合mysql_auto_reconnectを設定

が上の助言されていないためにはDBD :: mysqlの再接続にmysqlのすべてのテーブルロックは失われます。 AutoCommitがオフになっているときにこの属性は無視され、AutoCommitがオフになっていると、DBD :: mysqlは自動的にサーバーに再接続しません。