|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vadim Tzirulnicov 2:5020/40.102 09 Aug 2003 20:16:49
To : All
Subject : Почему TimeOut не срабатывает ?
--------------------------------------------------------------------------------
_*ЯЯЯЯЯ*_ ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
eval{
local $SIG{ALRM}=sub{print "alarm\n";exit(0)};
alarm(1);
$sock=IO::Socket::INET->new(Proto=>'tcp',
PeerAddr=>$host,
PeerPort=>'http('.$port.')',
Timeout=>1) or die("Download failure: Host $host not
found");
print $sock "GET /$url HTTP/1.0\nHOST:$host\n\n";
my $serverReply=<$sock>;
alarm(0);
};
exit(0);
- виснет, гад, если до хоста достучаться не может...
ъ ъъъДН» Hу я вроде все сказал... Пока, _*All*_ !
ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
... Девушка - это как наркотик. Познав - оторваться уже невозможно...
--- GoldEd 3.00.Beta5+
* Origin: А здесь могла бы быть ваша реклама... (2:5020/40.102)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
