Estoy desarrollando un programa con sockets de un ejemplo que vi en este foro
Este es el código del server:
Using perl Syntax Highlighting
- use IO::Socket;
- print "Server Socket Program... \n";
- $sock = new IO::Socket::INET(
- LocalPort => 1234,
- Listen => 128,
- Reuse => 1,
- Proto => 'tcp') || die "Error creating socket: $!";
- print "-- Server Program --\n";
- while($cliente = $sock->accept() )
- {
- $cliente->autoflush(1);
- while (defined($line=<$cliente>))
- {
- print $line "Welcome \n";
- }
- }
- close($sock);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El cliente que hice para probar es este:
Using perl Syntax Highlighting
- #!/usr/bin/perl-w
- use IO::Socket;
- $sock=IO::Socket::INET->new(
- PeerAddr=>"192.168.227.1",
- PeerPort=>1234,Proto=>'tcp',
- Timeout=>5) || die "Error creating socket: $!";
- $msg='Probando enviar msg por socket';
- print $sock $msg;
- close $sock;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El servidor lo hice en Windows y el cliente está en Linux pero cuando lo corro, el mensaje nunca llega al server. He hecho de todo y la verdad ya no sé qué más poner. Este ejemplo lo tomé de este foro con una discusión parecida que había aquí.
¿Alguien puede ver y darme una pista? ¿Existe alguna forma de hacer un debug?
El cliente no emite ningún error cuando se conecta por lo que asumo que está haciendo bien la conexión.
Gracias.