Как проверить, жив ли PGSQL-сервер с DBD :: PG?

Question

Я отчаянно пытаюсь найти простой способ регулярной проверки, если PGSQL-сервер все еще жив изнутри perl-скрипта. Я намеревался использовать для этого pg_ping, но в моих тестах pg_ping всегда возвращает 1, независимо от состояния сервера БД.

Вот код, который я попробовал это:

#!/usr/bin/perl 
use strict; 
use warnings; 
use DBD::Pg; 

my $dbh=DBI->connect("DBI:Pg:dbname=healthcheck;host=vm0484","healthcheck","areyoustillthere"); 
for (my $i=1;$i<100;$i++) { 
print "$i. pg_ping: ".$dbh->pg_ping."\n"; 
sleep(1); 
} 

Затем я использовал kill -9 в другом окне, чтобы вручную завершить PGSQL-сервер, но результат был еще 1. Я сделал что-то не так?

Если нет, то как лучше всего проверить, жив ли сервер БД?

Заранее спасибо.

Answer 1

Вы можете вручную выполнить запрос как

select 1 as is_alive 

, как ping() также утверждают, что сделать что-то подобное,

Метод пинг выдает пустой запрос и проверяет статус результата.