|
|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/89260982b424.html, оценка из 5, голосов 10
|