LINUX.ORG.RU

Perl, TCP/IP


0

0

Помогите разобраться в проблеме. Есть клиент, написанный на Perl:
#!/usr/bin/perl -w
use IO::Socket;
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "myserver.ru",
PeerPort => 2345,
)
or die "cannot connect";
$remote -> send ('Hello, its your client');
$remote -> recv ($text, 128);
print $text;
Сервер на C++, текст приводить здесь не буду. Клиент должен передать серверу сообщение 'Hello, its your client', сервер - принять и отправит его же обратно клиенту. Клиент - принять и вывести на экран.
Проблема в том, что если запускать сервер и клиент на одной машине, то все работает. Если на разных, клиент отправляет сообщение, сервер принимает, оправляет обратно клиенту, а вот клиент его не принимает. Может дело в синхронизации? В общем, помогите плиз.

С уважением

anonymous

Re: Perl, TCP/IP

Действительно, проблема в синхронизации. Воспользуйтесь accept.

anonymous ()

Re: Perl, TCP/IP

Разобрался. Клиента я на чужой машине отлаживал, а там, как оказалось, брэндмауэр стоит. Вот собственно и вся проблема. А я вчера голову себе ломал ж-)

Respectfully yours

anonymous ()

Re: Perl, TCP/IP

telnet - весьма хорошая и иногда необходимая штука :)

Havoc ★★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.