Foro - Perl en Español

por **escanda** » 2008-07-30 07:45 @364

hola, ¿qué tal?

Yo ya he hecho un socket, mas o menos anduvo, pero ahora lo que tengo que hacer no es solo enviar un mensaje a otro lado sino que el que lo recibió lo responda, ¿es posible esto? ¿qué tengo que usar?

Gracias.

Saludos.

Gracias por la respuesta, pero ayer me pasé todo el día buscando por Google y no logré encontrar lo que buscaba, vuelvo a explicar, más o menos lo que básicamente quiero hacer es un chat entre 2 clientes y creo que esto se hace por medio de un servidor, si podrías ser más preciso te lo agradecería. Saludos.

por **explorer** » 2008-07-31 07:55 @371

Hay algunos ejemplos en estos foros. Busca por la palabra Socket.

También está bien que veas la página de Linux Journal sobre este tema:
Network Programming with Perl

por **escanda** » 2008-07-31 10:00 @458

Encontré esto, pero no me funciona, se me cierra automáticamente todo después de mandar el mensaje.

SERVIDOR:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 

use IO::Socket;
$sock=new IO::Socket::INET(LocalHost =>'localhost',

                               LocalPort =>1100,

                               Proto     =>'tcp',

                               Listen    =>  6,

                               Reuse     => 1
);
die"No se ha podido crear el socket: $!\n"unless$sock;
$conexion=$sock->accept();#Ahora aceptamos las conexiones
$conexion->send("Mensaje: ");#Otro mensaje que enviaremos
# usando send
recv($conexion,$nombre, 10,undef);#recibimos el nombre, y lo metemos
#en $nombre
#no esperamos mas de
#10 caracteres
print$conexion"Hola $nombre\n";#enviamos con print
close($conexion);#bye byeColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

CLIENTE

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use IO::Socket;
$sock=new IO::Socket::INET(PeerAddr =>'localhost',

                                 PeerPort =>1100,

                                 Proto    =>'tcp');

recv($sock,$pregunta, 30,undef);
print"$pregunta";
$respuesta=<STDIN>;
print$sock"$respuesta";
recv($sock,$saludo, 30,undef);
print"$saludo\n";
close$sock;
exit;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

LES AGRADEZCO SI ME AYUDAN, GRACIAS.

por **creating021** » 2008-07-31 16:39 @735

viewtopic.php?t=2839

Necesitas crear un bucle para hacer eso...

Nuevamente, te recomendo Perl Cookbook :wink:

es muy útil.

por **explorer** » 2008-07-31 17:43 @780

Si hubieras visto el enlace que te puse, verías que los listados 5 y 6 son un servidor y un cliente que se intercambian mensajes.

P.D. Recuerda que estás en el foro Experto.

por **escanda** » 2008-08-01 08:18 @387

explorer: en principio, gracias y disculpa las molestias, pero he copiado y pegado exactamente lo que había en el enlace, y lo que logro de esa forma es que el servidor le envíe un mensaje al cliente, en este caso el mensaje "PROBANDO", pero no logro hacer lo contrario, disculpa que insista tanto pero para mi sería muy importante que ande, desde ya muchas gracias, y disculpa las molestias.

por **explorer** » 2008-08-01 12:09 @548

El servidor debe enviar la cadena por el manipulador de ficheros que accept() le ha devuelto, mientras que al cliente le vale con pintar en el manipulador devuelto por IO::Socket.

En este hilo hay más ejemplos de cliente y servidor: IO::Socket emisor y receptor de un mensaje.

Si quieres que se intercambien varios mensajes, debes meter el proceso en un bucle mientras (while()) no se cumpla la condición de salida.

Pruébalo, y si el código sigue sin funcionar, publícalo y te seguimos ayudando.

Foro - Perl en Español

Socket Perl

Socket Perl

Publicidad

¿Quién está conectado?