>> Tu' ich. 'Net::ping' war ein Tippfehler. Sorry.
>Oh. Was ist denn die genaue Fehlermeldung?
# Folgendes steht im Buch:
use Net::Ping;
use strict;
my $host_fuer_Ping = "vobis266";
my $pinger = Net::Ping->new(Timeout => 10);
if ($pinger->ping($host_fuer_Ping)) {
print $host, " is alive.\n";
}
# Das gibt die Fehlermeldung:
# Global symbol "$host" requires explicit package name at ./ping.pl line 15.
# Ich denke: "$host" gibts nicht, wird wohl ein Druckfehler im Buch sein,
# also mache ich:
if ($pinger->ping($host_fuer_Ping)) {
print $host_fuer_Ping, " is alive.\n";
}
# Das gibt die Fehlermeldung:
# Protocol for ping must be "tcp", "udp" or "icmp" at ./ping.pl line 28
# Ich schaue in den POD nach und versuche:
my $pinger = Net::Ping->new("tcp", 2);
# Das macht die Fehlermeldung:
# Can't locate object method "new" via package "Net::Ping" at ./ping.pl line
41.
Komisch: Letzteres lief mir auch schon ohne Fehlermeldung, gab aber nix aus.
Der Host "vobis266" ist erreichbar, ping vobis266 von der Konsole aus geht.
>Und ist Ping.pm
>eigentlich da (bei mir in /usr/lib/perl5/5.00502/Net/Ping.pm)?
Genau so bei mir. Ist ja glaube ich vorinstalliert bei SuSE.
Sonst hatte ich eigentlich nie Probleme mit Perl oder den Modulen.
Paul
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux
