Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Savchenko                     2:5020/400     01 Dec 2001  18:18:39
 To : All
 Subject : взаимодействие клиент-сервер
 -------------------------------------------------------------------------------- 
 
 Приветствую всех!
 
 Есть клиент писанный на перле.
 Hевозможность подключения к серверу я могу отловить с помощью eval.
 А как отловить ситуацию, когда связь оборвалась при выполнении
 print $server "$message\n"; ?
 
 Будет ли правильно написать
 print $server "$message\n" or die "$!"; ?
 
 Фрагмент кода см. ниже.
 
 == чик ==
 
     eval
     {
       $server = IO::Socket::INET->new(PeerAddr => $remote_host,
                                       PeerPort => $remote_port,
                                       Type     => SOCK_STREAM,
                                       Proto    => "tcp")
         or die "Couldn't connect to $remote_host:$remote_port : $@\n";
     };
 
     if ($@ eq '')
     {
       # передаем сообщения серверу
         print $server "$message\n";
       }
 
     close ($server);
 
 == чик ==
 --- ifmail v.2.15dev5
  * Origin: Internet-Arkhangelsk Company (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 взаимодействие клиент-сервер   Dmitry Savchenko   01 Dec 2001 18:18:39 
 Re: взаимодействие клиент-сервер   Artem Chuprina   02 Dec 2001 15:35:57 
 Re: взаимодействие клиент-сервер   Eugene Karpachov   03 Dec 2001 09:40:44 
 Re: взаимодействие клиент-сервер   Artem Chuprina   03 Dec 2001 15:12:09 
Архивное /ru.perl/89260982b424.html, оценка 3 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional