ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : V.Maslikhov                          2:5020/400     01 Aug 2001  19:07:57
 To : All
 Subject : Проблема ТСР клиент - сервер
 -------------------------------------------------------------------------------- 
 

  Друзья мои !
 
  Подскажите как выйти из такого неприятного положения :
 
  если я открываю TCP сервер как
  use IO::Socket;
  $server = IO::Socket::INET->new(LocalPort => "3000",
                                  Type      => SOCK_STREAM,
                                  Reuse     => 1,
                                  Listen    => 1) or die "$@\n";
 
  и далее жду соединения от клиента
 
  client = $server->accept();
 
  то после соединения клиента на мой сервер работать с ним удается через
  $client,
  все - ОК, но если в процессе работы клиент отвалится, то я никак не могу
  определить это.
  Проверки $client'а типа  while($client) или  if($client) дают положительный
  ответ, т.е. вроде как
  можно работать с $client дальше, даже первый print $client "lkjlk";
 проходит
  успешно,
  а вот уже следующий print $client "lkjlk"; приводит к ошибке "Broken pipe"
 и
  вся программа
  умирает напроч.
 
  Как можно проверить действительное состояние $client ???
 
  С нетерпением жду ваших подсказок,
  Слава.
 
 >
 >
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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