Суть проблемы такова: есть программа, которая обрабатывает входящие факсы, нужно, написать клиента для Виндов, чтобы он извещал пользователя о приходе ему сообщения, и обратно серверу отдавал ответ о принятии извещения. Клиент практически готов, передает серверу мессагу о каком-то событии на определенный порт на сервере и у себя на машине слушает определенный порт на наличие на нем входящего ответа, как заставить сервер отдать ему ответ именно на этот порт, но только по приходу ответа от клиента, желательно в примерах.

Напиши приложение клиен сервер, работающий через сокеты, модуль IO::Socket
Вот так выглядит сервер:

Код

#!/usr/bin/perl -w use strict; use IO::Socket; my $port = shift || 139; my $server = IO::Soket::INET->new( LocalPort => $port,                                         Type => SOCK_STREAM,                                         Reuse => 1,                                         Listen => 40 )                      or die "Fuck me: $@"; while ( my $cl = $server->accept() ) {            # Что то делаем с подключением $cl } close( $server );

Клиет:

Код

#!/usr/bin/perl -w use strict; use IO::Socket; my $host = shift; my $port = shift || 139; my $sock = IO::Soket::INET->new( PeerAddr => $host,                                     PeerPort => $port,                                     Type => SOCK_STREAM,                                     Proto => "tcp" )                      or die "Fuck me: $@"; print $sock "Что-то передаём серверу"; my $answ = <$sock>; #ожидаем ответа close( $sock );

Примерно так, в документации всё отлично расписано. Будут вопросы, пиши.
Удачи.

Это сообщение отредактировал(а) korob2001 - 19.3.2005, 01:51

Спасибо, ничего нового для меня, но идею понял , спасибо, что наставил на путь истенный.