Hola a todos es contare de mi problema
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
# 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();
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?
Gracias
Saludos
