Ver Tema

mr_bowser · 2011-11-21 04:52 @245

Hola amigos tengo el siguiente problema, ojalá puedan ayudarme, tengo el siguiente código

emisor:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use IO::Socket;
my $sock = new IO::Socket::INET (
                                        PeerAddr => 'asomatos',
                                        PeerPort => '7070',
                                        Proto => 'tcp',
                                );
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);

y receptor:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use IO::Socket;
my $sock = new IO::Socket::INET ( 
                                        LocalHost => 'thekla',
                                        LocalPort => '7070',
                                        Proto => 'tcp',
                                        Listen => 1,
                                        Reuse => 1, 8 );
die "Could not create socket: $!\n" unless $sock;
 
my $new_sock = $sock->accept();
while(<$new_sock>)
{
        print $_;
}
close($sock);

Esto, en su contexto, envía un mensaje del emisor hacia el receptor y éste lo imprime, pero ahora necesito enviar un mensaje al receptor. Éste no lo imprime pero sé devuelve otro al emisor. Si alguien pudiese guiarme se lo agradecería, muchas gracias por todo, saludos.

explorer · 2011-12-21 18:15 @802

Te recomiendo que mires el -legendario- artículo Network Programming with Perl (año 1999), donde se indican todas las combinaciones que se pueden dar con IO::Socket. Entre ellas, la que comentas de un servidor y cliente intercambiando información.

mr_bowser · 2011-12-22 07:00 @333

Muchas gracias amigo, le echaré una ojeada. Saludos.

Publicidad

Socializa