mozart
13.11.02, 11:47
Ich habe ein PerlScript gebastelt, welches mir über scp eine Datei auf n Hosts kopiert. Wenn nun allerdings ein Host aus meiner Liste offline ist, würde ich das gerne vorher wissen. Weiterhin besteht die Möglichkeit, das auf den Hosts kein sshd läuft. Dazu dacht ich mir, nimm doch einfach das Net::Ping Modul.
Das sieht dann ungefähr so aus:
$p = Net::Ping->new("tcp",2);
$p->bind($my_addr);
$p->{port_num} = getservbyname("ssh", "tcp");
if ($p->ping($HOST)) {
. . . . . .
}
$p->close ();
Das hab ich aus der CPAN Doku. Läuft aber nicht. Das Modul scheint einen normalen Ping zu machen. Nicht an Port 22.
Was mache ich falsch?
Oder gibt es eine andere Möglichkeit herrauszufinden, ob auf dem ZielHost ein sshd an einem Bestimmten Port läuft?
Das sieht dann ungefähr so aus:
$p = Net::Ping->new("tcp",2);
$p->bind($my_addr);
$p->{port_num} = getservbyname("ssh", "tcp");
if ($p->ping($HOST)) {
. . . . . .
}
$p->close ();
Das hab ich aus der CPAN Doku. Läuft aber nicht. Das Modul scheint einen normalen Ping zu machen. Nicht an Port 22.
Was mache ich falsch?
Oder gibt es eine andere Möglichkeit herrauszufinden, ob auf dem ZielHost ein sshd an einem Bestimmten Port läuft?