Programación Web y Scripting => Perl => Mensaje iniciado por: skappermx en Sábado 11 de Octubre de 2008, 18:30
Título: Socket en Perl
Publicado por: skappermx en Sábado 11 de Octubre de 2008, 18:30
Hola a todos es contare de mi problema :rolleyes:
Quiero hacer un socket en perl que se conecte a mi servidor hecho en C++ y que si el servidor le manda X cadena haga tal cosa :rolleyes:
Código: Text
# Server Program
use IO::Socket::INET;
print ">> Server Program <<n";
# Create a new socket
$enchufe = new IO::Socket::INET->new(PeerPort=>3460,Proto=>'tcp',PeerAddr=>'localhost');
my $buf;
$enchufe->recv($buf,8);
if ($buf ne 'chick' )
{
print "Lo que me envio: $bufn";
}
else
{
print "Errorn";
}
$enchufe->close();
:hitcomp: El problema es que el servidor manda la palabra "chicken" pero si pongo en el if otra palabra distinta a alo que manda el servidor la ejecuta y no ejecuta el else
Por que pasa eso? :ouch:
Gracias
Saludos :good:
Título: Re: Socket en Perl
Publicado por: su - en Sábado 11 de Octubre de 2008, 18:54