ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Savchenko 2:5020/400 26 Oct 2001 12:47:37
To : All
Subject : сервер вываливается: Broken pipe
--------------------------------------------------------------------------------
Приветствую всех!
Hиже фрагмент кода TCP-сервера.
Если принудительно (некорректно) закрыть клиента, то сервер вываливается с
ошибкой Broken pipe.
Как перехватить и корректно обработать такую ситуацию?
Спасибо.
---------------------------------------------------------------------
while (($client, $client_addr) = $server->accept())
{
while (defined($answer = $client->getline()))
{
$answer =~ s/(\015|\012)//g;
last if ($answer eq "quit");
print $client "Unknown command: $answer\015\012";
}
$client->close();
}
---------------------------------------------------------------------
--- ifmail v.2.15dev5
* Origin: Internet-Arkhangelsk Company (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
