perl dbi reconnect on disconnect

Question

Mam wyszukiwanie google, ale nie mogłem znaleźć odpowiedzi na to, co myślę, że jest łatwe quest.

Mam kod perla (przykład poniżej), który pobiera dane co 3 sekundy i aktualizuje odebrane dane do bazy danych Mysql, ale czasami baza danych mysql nie jest dostępna i skrypt umiera. Jak mogę ponownie utworzyć połączenie mysql, jeśli się nie powiedzie?

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

Można również spojrzeć na tym wątku: http://www.perlmonks.org/?node_id=317168

ten omawia sposób radzenia sobie z „serwer MySQL zniknęło” problem, ale kilka odpowiedzi odnoszą się do problemu zbyt. Możesz skorzystać z zaleceń tam, oprócz przełącznika mysql_auto_reconnect.

Answer 2

DBD::mysql kierowca (DBI, że używa do baz danych MySQL) obsługuje atrybut mysql_auto_reconnect. Aby go włączyć, wystarczy wykonać

$connect->{mysql_auto_reconnect} = 1; 

Zauważ, że docs mają to ostrzeżenie:

Ustawianie mysql_auto_reconnect się na nie jest zalecane, jeśli jest używany 'lock' tabele bo jeśli DBD :: mysql ponownie połączyć mysql wszystkie blokady tabeli zostaną utracone. Ten atrybut jest ignorowany, gdy AutoCommit jest wyłączony, a gdy AutoCommit jest wyłączony, DBD :: mysql nie będzie automatycznie ponownie łączył się z serwerem.