Perl-Modul für TNSPING

Hallo,

es gibt ein Tool names TNSPING zum Abfragen der Verfügbarkeit
von (Oracle) Datenbanken.

Gibt es auch ein Perl-Modul dafür? Natürlich könnte ich das Ganze
mit system() machen, aber wenn es ein Modul gibt, würde ich das
lieber verwenden.

Im CPAN habe ich leider nichts gefunden.

Danke & LG aus Wien,

Ferry

--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: ferdinand.bolhar-nordenkampf@wien.gv.at

Re: Perl-Modul für TNSPING

Ferry Bolhar schrieb:
> es gibt ein Tool names TNSPING zum Abfragen der Verfügbarkeit
> von (Oracle) Datenbanken.
>
> Gibt es auch ein Perl-Modul dafür? Natürlich könnte ich das Ganze
> mit system() machen, aber wenn es ein Modul gibt, würde ich das
> lieber verwenden.
>
> Im CPAN habe ich leider nichts gefunden.

Reicht DBI / DBD::Oracle nicht? AFAIK macht TNSPING auch nichts
anderes, als einen connect abzusetzen und die Dauer auszugeben,
bzw. im Fehlerfall die Meldung auszugeben (die auch in $DBI::errstr
verfügbar sein sollte).

Ansonsten gäbe es auch noch die ping()-Methode aus DBI, die in
DBD::Oracle implementiert ist und ein einfaches Query absetzt.

-Christian