Вопрос : Будут мной неправда doin

sub Connect

{печать

«подключая к $host на… $port \ n»;
мое $sock = новый IO:: Гнездо:: Связи C:\Program Files\Spirent INET (=> PeerAddr «\ симплекс \ simplex.exe», =>
PeerPort «15650», => «tcp
Proto ");
умирает «ошибка: Не smogл создать гнездо - $! \ n» если определено ($sock);
$sock->autoflush (1); печать

«посылая командование $command к $host на… $port \ n»;
$sock->send ($command);
пока (мо данные по сервера $buffer = <$sock>) {печати
«: \ n»; ; печать «$buffer \ n»
;
$sock->close
};

умирает «ошибка: Не smogл разветвить процесс - $! \ n» если определено (мо $pid = вилка ());

если ($pid), то {
пока (мо данные по сервера $buffer = <$sock>) {печати
«: \ n»; ; печать «$buffer \ n»
;

} закрывает ($sock); убийство
(«ТЕРМИНА», $pid);
} еще {печать
«посылая командование $command к $host на… $port \ n»;
$sock->send ($command);




it

}} не соединяет class=

Ответ : Будут мной неправда doin

Прежде всего, PeerAddr должно быть адресом ip или имя ведущего сервера, того слушает порт 15650, не курс к программе, как
мо $sock = новый IO:: Гнездо:: INET (=> «192.168.1.1» PeerAddr, => «15650» PeerPort, Proto => «tcp ");