Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

TIMEOUT под WIN_NT

455
07 августа 2003 года
vitorg
55 / / 20.05.2000
Я не пойму, что, alarm() под виндой не работает?
Как тогда сделать таймаут такому скрипту?
Код:
#!/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.'\'
';}
 }

Нужно, чтобы, если gethostbyaddr() выполняется более 2 секунд, переходить к следующему вызову.
НО! под win_32+Apache2+Active_Perl
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог