Problem mit Net::Ping nach Reconnect - #37993 (Netzwerkprogrammierung und Netzwerke mit Perl)

talpa

2005-08-03 04:47

User since
2005-08-03
3 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich bin Perl-Neuling und benutze ActivePerl unter W2k. Ich versuche die Verfügbarkeit eines Remotehosts über das Net::Ping - Modul zu ermitteln.
Stelle mir das in etwa so vor:

Code: (dl )

use Net::Ping;

$remotehost = "ir.gend.was";

while(1){
    $p = Net::Ping->new("icmp");
    if($p->ping($remotehost,1)) {
        print "erreichbar\n";
    }
    else{ 
        print "nicht erreichbar\n";
    }
    sleep(30);
    $p->close();
}

Wenn das Skript ausgeführt wird, funktioniert es auch so lange bis die Internetverbindung unterbrochen wird. Nachdem die Internetverbindung neu aufgebaut worden ist, schlagen alle weiteren Pings fehl. Erst nach einem Neustart des Skript funktioniert es wieder.

Wäre für jede Info dankbar.

Grüße

edit pq: code-tags hinzugefügt (statt quote-tags)\n\n