ping ip

[Perforator]

нужно скриптом проверить определенный IP
(по аналогии с утилитой ping)

а еще желательно и определенный порт

советы ?

[Chs]

perldoc Net::Ping

напиши plz пример скрипта чтобы пинговать определенный ip! а то я из  perldoc все перепробовал и нифига ((
ps: у меня winXP/ apache / active perl

[Chs]

Код: [Выделить]


#!/usr/bin/perl

 use Net::Ping;

$host = \'localhost\';

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

---------- Perl Run ----------
localhost is alive.
Normal Termination
Output completed (2 sec consumed).