Foro - Perl en Español

por **Warlox** » 2011-01-29 07:33 @356

¡Hola!

Como especifiqué en un post anterior, soy un principiante en Perl, así que recurro a ustedes porque me surge una duda acerca de los sockets. Tengo los dos siguientes archivos:

server.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use IO::Socket;
use Net::hostent;
 
$servidor = IO::Socket::INET->new
(
        Proto => 'tcp',
        LocalPort => '1717',
        Listen => 5,
        Reuse => 1
);
 
die "No se pudo iniciar el servidor." unless $servidor;
print "[Servidor \"",$0,"\" a la espera de clientes.]\n";
 
while($cliente = $servidor->accept())
{
        $cliente->autoflush(1);
        print $cliente "Bienvenido a mi servidor.\n";
        
        $hostinfo = gethostbyaddr($cliente->peeraddr);
        
        printf "[Conectado con %s]\n", $hostinfo->name;
        print $cliente "¿Algo que decir?";
        close $cliente;
}
 
close $servidor || die "close: $!";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

cliente.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Socket;
 
my ($remote,$port, $iaddr, $paddr, $proto, $line);
 
$remote  = 'localhost';
$puerto    = 1717;
 
if ($puerto =~ /\D/)
{
        $puerto = getservbyname($puerto, 'tcp');
}
die "No se especificó un puerto." unless $puerto;
 
$iaddr   = inet_aton($remote) || die "No Host: $remote";
$paddr   = sockaddr_in($puerto, $iaddr);
$proto   = getprotobyname('tcp');
 
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!";
 
while (defined($line = <SOCK>))
{
        print $line;
}
 
close (SOCK) || die "close: $!";
exit;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Al ejecutar el servidor, me sale el siguiente texto en consola:

[Servidor "server.pl" a la espera de clientes.]

Cuando ejecuto el cliente (con el servidor abierto, obvio), me sale el siguiente texto en la consola del cliente:

Bienvenido a mi servidor.
¿Algo que decir?

Y en el servidor sale lo siguiente:

[Servidor "server.pl" a la espera de clientes.]
[Conectado con localhost.localdomain]

Ahora, mis dudas son:
1- ¿Porqué el servidor sigue abierto, y el cliente se cierra?
2- ¿Cómo hago para enviar instrucciones desde el cliente al servidor?

Espero me puedan ayudar

Saludos ^^

Haces print() hacia el servidor usando el gestor de archivos que usaste para abrir el canal.

En este artículo de la Linux Journal de 1999 encontrarás todas las combinaciones, desde los servidores y clientes más sencillos hasta los más complicados. Eso sí, como se trata de un texto de hace doce años, ahora existen más módulos que permiten realizar ciertas tareas de forma más cómoda. Pero las bases están ahí. Y en el libro «Network Programming with Perl», de Lincoln D.Stein, Addison Wesley, 2000, ISBN 0-201-61571-1.

por **Warlox** » 2011-01-29 13:11 @591

Vale, lo he modificado de la siguiente manera:

server.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use IO::Socket;
use Net::hostent;
 
$servidor = IO::Socket::INET->new
(
        Proto => 'tcp',
        LocalPort => '1717',
        Listen => 5,
        Reuse => 1
);
 
die "No se pudo iniciar el servidor." unless $servidor;
print "[Servidor \"",$0,"\" a la espera de clientes.]\n";
 
while($cliente = $servidor->accept())
{
        $cliente->autoflush(1);
        print $cliente "Bienvenido a mi servidor.\n";
        
        $hostinfo = gethostbyaddr($cliente->peeraddr);
        
        printf "[Conectado con %s]\n", $hostinfo->name;
        print $cliente "Inserta un comando.";
        
        while(<$cliente>)
        {
                next unless /\S/;
                
                if(/salir/)
                {
                        last;
                }
                elsif(/fecha/)
                {
                        printf $cliente "La fecha es: %s\n", scalar localtime;
                }
                elsif(/cd/)
                {
                        `eject`;
                }
                else
                {
                        print $cliente "Comando desconocido\n";
                }
        }
        continue
        {
                print $cliente "Inserta un comando.";
        }
                
        close $cliente;
}
 
close $servidor || die "close: $!";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

cliente.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Socket;
 
my ($remote,$port, $iaddr, $paddr, $proto, $line);
 
$remote  = 'localhost';
$puerto    = 1717;
 
if ($puerto =~ /\D/)
{
        $puerto = getservbyname($puerto, 'tcp');
}
die "No se especificó un puerto." unless $puerto;
 
$iaddr   = inet_aton($remote) || die "No Host: $remote";
$paddr   = sockaddr_in($puerto, $iaddr);
$proto   = getprotobyname('tcp');
 
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr)    || die "connect: $!";
 
while (defined($line = <SOCK>))
{
        print $line;
}
 
close (SOCK) || die "close: $!";
exit;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ejecutándolo desde dos terminales, el programa sí funciona, pero nunca llega al cliente.pl la línea "Inserta un comando.", por lo que el server.pl no recibe los comandos :S

Caso contrario, si inicio el server.pl en la terminal, y me conecto por telnet 127.0.0.1 1717, sí funciona a las 1000 maravillas.

¿A qué se debe?

por **explorer** » 2011-01-29 13:19 @597

Es posible que el texto esté siendo almacenado por el caché de salida. Desactívalo colocando

$|++;

al principio del programa.

por **Warlox** » 2011-01-29 14:10 @632

Mira, he hecho el siguiente video para que me entiendas mejor, y veas exactamente cuál es mi duda o problema:

http://www.youtube.com/watch?v=qDo6EiC93Wc

Espero ansiosamente, me puedas ayudar :$
Saludos ^^

por **explorer** » 2011-01-29 14:17 @637

¿Has hecho lo que he dicho en el mensaje anterior, de desactivar la caché de salida?

Con el telnet sí que lo ves porque telnet no tiene caché de salida. La frase de petición del comando no sale porque no tiene un carácter de fin de línea al final, y por eso, esa frase queda en la caché de salida esperando a que a) el buffer se llene, o b) se reciba la petición de enviar un carácter de fin de línea.

Desactivando el caché de salida, se soluciona el problema.

Esta está comentado en otros hilos del foro. Te recomiendo que les mires. Usa el sistema de búsqueda para localizarles. Prueba a buscar por "sockets"

por **Warlox** » 2011-01-29 14:35 @649

De hecho, hice lo que me dijiste anteriormente, de desactivar la caché, primero lo coloqué en el cliente y no sirvió, luego lo coloqué en el servidor y tampoco sirvió :S

por **explorer** » 2011-01-29 15:26 @684

He hecho unas pruebas, y tienes razón. Aún sabiendo que el buffer de caché está desactivado por defecto, según se lee en la documentación de IO::Socket, no funciona como se espera.

Lo que me temo es que el origen del problema está en el uso de IO::Socket en la parte del servidor, y de Socket en la parte del cliente.

Prueba a programar servidor y cliente usando el mismo módulo IO::Socket.

Te recomiendo que mires el listado del servidor (Listing 5) y el cliente (Listing 6) del artículo que te enlacé antes en la Linux Journal, porque son unos ejemplos casi iguales a lo que quieres conseguir (dialogo de comandos entre cliente y servidor).

por **Warlox** » 2011-01-29 19:37 @859

¡Gracias! Ahora más tarde los leo, y cualquier duda te pregunto

Saludos ^^

por **Warlox** » 2011-01-30 00:40 @070

¡No entiendo! :S
Tras leerlo muchas veces, no entiendo :S

A ver, si no es mucho pedir, ¿ustedes me podrían decir, más o menos, cómo hacer un "chat" en Perl?, o sea, algo super simple: yo abro el servidor, otra persona abre el cliente y nos mensajeamos por medio de la aplicación.

Me encantaría si me pudieran explicar más o menos cómo hacerlo :$
Saludos ^^

Foro - Perl en Español

Comenzando con los sockets

Comenzando con los sockets

Publicidad

Re: Comenzando con los sockets

Re: Comenzando con los sockets

Re: Comenzando con los sockets

Re: Comenzando con lo sockets

Re: Comenzando con lo sockets

Re: Comenzando con los sockets

Re: Comenzando con lo sockets

Re: Comenzando con los sockets

Re: Comenzando con los sockets

¿Quién está conectado?