Исходное сообщение
"DBI постоянное соединение" Отправлено krpsh, 05-Июн-16 17:09
Здравствуйте! есть код из скрипта, который один раз в 5 секунд вставляет строку в базу база находится на другом конце openvpn туннеля my $dbh = DBI->connect("dbi:Pg:dbname=db_exp;host=192.168.170.1;port=5432",                 "exp", "111",                 {AutoCommit => 0, RaiseError => 0, PrintError => 0, pg_enable_utf8 => 1, ShowErrorStatement => 1, InactiveDestroy => 1}); my $query = qq/INSERT INTO proba_connector (id, name, is_del) VALUES (?,?,?)/; my $sth = $dbh->prepare($query); while (1) {     my $rv = $sth->execute(22, 'test', 1);     print "sleep 5\n";     sleep 5; } при падении туннеля, скрипт как бы "замирает" на шаге "sleep 5" и не переходит к вставке следующей строки, где можно было бы отловить падение канала т.к. драйвер бы выдал ошибку, что мол нет коннекта вопрос можно ли как-то в скрипте отловить падение туннеля? после восстановления туннеля, скрипт "оживает" и продолжает свою работу. У DBI есть метод ping, который как раз и предназначен решать эту проблему и он прекрасно работает если базу просто остановить, но вот он не работает если рвется связь, т.к. скрипт "замирает" ps: того же эффекта можно добиться при помощи iptables, если закрыть порт 5432 на входящий коннект