Forum Webscript.Ru

Программирование => Perl => Тема начата: Perforator от 26 Марта 2002, 21:28:01

Название: ping ip
Отправлено: Perforator от 26 Марта 2002, 21:28:01

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

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

советы ?

Название: ping ip
Отправлено: Chs от 26 Марта 2002, 22:52:26

perldoc Net::Ping

Название: ping ip
Отправлено: от 08 Мая 2002, 11:01:33

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

Название: ping ip
Отправлено: Chs от 08 Мая 2002, 11:52:34

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


#!/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).