ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ruslan Sulemanov                     2:4635/1024.27 18 Feb 2003  20:32:41
 To : Vadim Tzirulnicov
 Subject : Сокеты
 -------------------------------------------------------------------------------- 
 

 
        Как-то Vadim Tzirulnicov писАл(а) к All:
 
  VT> Как сделать, чтобы если в течениие какого-то времени ответ от сервера
  VT> не
  VT> получен, обрывать подключение ?
 
       вы имеете ввидy таймаyт поставить ?
 
        1.
            ......
 
         local $SIG{ALRM}=sub { die "timeout"; };
           eval {
           alarm(60);
          while($line=<SOCK>)
             {
             push(@sockdata,$line);
             }
           alarm(0);
               };
           ........
 
        2.
             .......
            $sock=IO::Socket::INET->new(PeerAddr => "www.jeet.com",
                                        PeerPort => 80,
                                        Type => SOCK_STREAM,
                                        Timeout => 30)      # <-------
                                         or die "$!\n";
                                                               RSR
 --- GoldED+/386 1.0.0
  * Origin: E-mail: support@icu.net.ua (2:4635/1024.27)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Сокеты   Vadim Tzirulnicov   18 Feb 2003 15:17:49   Re: Сокеты   Artem Chuprina   18 Feb 2003 16:33:53   Re: Сокеты   Konstantin Tokar   18 Feb 2003 21:51:10   Re: Сокеты   Artem Chuprina   19 Feb 2003 02:57:40   Сокеты   Ruslan Sulemanov   18 Feb 2003 20:32:41