Programación Web y Scripting > Perl

 Socket en Perl

(1/1)

skappermx:
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 Programuse 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:

su -:
Es que esta todo mal hecho...  :P

--- Código: Perl ---# Server Programuse strict; #Este pragma es muy importanteuse IO::Socket::INET;print ">> Server Program <<n"; # Create a new socketmy $enchufe = IO::Socket::INET->new(    PeerPort  => 3460,    Proto     => 'tcp',    PeerAddr  => 'localhost'    );my $buf;$enchufe->recv($buf,8); # Esto es poco usual# Generalmente se usa whileif ($buf =~ /chick/ ) {    print "Lo que me envio: $bufn";}else {    print "Errorn";}$enchufe->close(); 
Te recomiendo Perl Cookbook...

skappermx:
Gracias lo que pasa es que casi no programo en perl , me dedico mas C++ pero voy a leerme a conciencia el Perl CookBook  :good:  :good:

Navegación

[0] Índice de Mensajes