/ Forside / Teknologi / Udvikling / Perl / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Perl
#NavnPoint
bjarneA 141
poul_from 50
soccer 30
Nicknack 14
Tmpj 0
Ping ??
Fra : Brian Ipsen


Dato : 11-09-01 13:08

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

 
 
Nezar Nielsen (13-09-2001)
Kommentar
Fra : Nezar Nielsen


Dato : 13-09-01 00:48

"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/




Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408925
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste