#!/usr/bin/perl
#HTTP-header
print "Content-Type: text/html; charset=\"windows-1251\"\n";
print "Cache-Control: no-cache\n";
print "Pragma: no-cache\n\n";
#/HTTP-header
use Socket;
for($i=0;$i<=255;$i++){
$address='192.168.0.'.$i;
$name=gethostbyaddr(inet_aton($address),AF_INET);
if ($name){print $address.' = \''.$name.'\'
';}
}
TIMEOUT под WIN_NT
Как тогда сделать таймаут такому скрипту?
Код:
Нужно, чтобы, если gethostbyaddr() выполняется более 2 секунд, переходить к следующему вызову.
НО! под win_32+Apache2+Active_Perl