---

Hej!

Jeg prøver at se, om jeg kan få ping til at køre i Perl med følgende
script (ActiveState på Win32 platform):

use Net::Ping;

$host = "boanxx9.ip.tele.dk";

$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host,30);
$p->close();

Men den melder ikke tilbage, at der er svar ("boanxx9.ip.tele.dk is
alive") som den burde ... Prøver jeg en "normal" ping kommando får jeg
godt nok svar....

/Brian

---

"Brian Ipsen" <Spammers@blow.me> wrote in message
news:bujrptku5d0vdvd33fr0j7hv6j0glvg8k6@news.inet.tele.dk...
> Hej!
>
> Jeg prøver at se, om jeg kan få ping til at køre i Perl med følgende
> script (ActiveState på Win32 platform):
....
> $p = Net::Ping->new();

fra manualsiden:

Net::Ping->new([$proto [, $def_timeout [, $bytes]]]);
Create a new ping object. All of the parameters are optional. $proto
specifies the protocol to use when doing a ping. The current choices are
``tcp'', ``udp'' or ``icmp''. The default is ``udp''.

Dvs. hvis du ændrer det til

$p=Net::Ping->new("icmp");
(hvilket iøvrigt kræver root-adgang at bruge på de OS'er der har sådan
noget).

Så skulle det virke(jeg ved ikke hvorfor default er udp, jeg har aldrig hørt
om at bruge udp eller tcp for den sags skyld til at pinge med..men nu har
jeg heller ikke læst nogle netværksbøger..) :)

--
Mvh. Nezar Nielsen
http://fez.dk/