Foro - Perl en Español

por **macaruchi** » 2010-03-24 20:21 @890

Este es mi primer post en este foro... Espero puedan ayudarme.

Estoy desarrollando un programa con sockets de un ejemplo que vi en este foro

Este es el código del server:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use IO::Socket;
print "Server Socket Program... \n";
 
$sock  = new IO::Socket::INET(
         LocalPort => 1234,
         Listen => 128,
         Reuse => 1,
         Proto => 'tcp') || die "Error creating socket: $!";
 
print "-- Server Program --\n";
while($cliente = $sock->accept() ) 
{     
        $cliente->autoflush(1);
        while (defined($line=<$cliente>)) 
         {
           print $line "Welcome \n";
          }
 }
 
close($sock);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

El cliente que hice para probar es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl-w
use IO::Socket;
$sock=IO::Socket::INET->new(
                        PeerAddr=>"192.168.227.1",
                        PeerPort=>1234,Proto=>'tcp',
                        Timeout=>5) || die "Error creating socket: $!";
 
$msg='Probando enviar msg por socket';
print $sock $msg;
close $sock; 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El servidor lo hice en Windows y el cliente está en Linux pero cuando lo corro, el mensaje nunca llega al server. He hecho de todo y la verdad ya no sé qué más poner. Este ejemplo lo tomé de este foro con una discusión parecida que había aquí.

¿Alguien puede ver y darme una pista? ¿Existe alguna forma de hacer un debug?
El cliente no emite ningún error cuando se conecta por lo que asumo que está haciendo bien la conexión.

Gracias.

#!/usr/bin/perl
use strict;
use warnings;
 
use IO::Socket;
 
print "Server Socket Program... \n";
 
my $sock = IO::Socket::INET->new(
    LocalHost => 'localhost',             # Opcional. Indicamos en dónde escuchamos
    LocalPort => 1234,                    # Por dónde
    Listen    => 125,                     # Número de oyentes
    Reuse     => 1,                       # Admitir nuevas peticiones de forma simultánea
    Proto     => 'tcp',                   # Protocolo
) or die "Error creating socket: $!\n";
 
$|++;                                     # No caché en pantalla
 
print "-- Server Program --\n";
 
while (my $cliente = $sock->accept() ) {      # Esperamos
    print "¡Conexión!\n";
 
    $cliente->autoflush(1);
 
    while (defined(my $line = <$cliente>)) {
        print "Welcome: $line\n";             # Imprimimos lo recibido
    }
 
    print "Fin de Conexión\n";
}
 
close($sock);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cliente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use IO::Socket;
 
my $sock = IO::Socket::INET->new(
    PeerAddr => 'localhost',                # A dónde hay que conectarse
    PeerPort => 1234,                       # y en qué puerto
    Proto    => 'tcp',                      # y con qué protocolo
    Timeout  => 30,                         # tiempo máximo de espera de conexión
) or die "Error creating socket: $!\n";
 
my $msg='Probando enviar msg por socket';
print $sock $msg;                           # y enviamos el mensaje
close $sock;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ten en cuenta que el puerto 1234 debe estar libre, en el ordenador que hará de servidor. Con el comando netstat (Windows y Linux) puedes ver las conexiones actuales.

por **macaruchi** » 2010-04-02 08:29 @395

Gracias, ya pude resolver el problema, no de esa forma, pero lo logré. Sí, ¡cómo pasa el tiempo...!

Otra pregunta, ahora estoy pasando mensajes de texto por el cliente al servidor pero quiero que el server me envié a mi un archivo de audio por el mismo socket.

¿Podría enviar un mensaje de texto al server y que éste me envíe un archivo de audio? Básicamente lo que hago es una petición del archivo que quiero y éste me retorne dicho archivo por el mismo socket que está abierto.

por **explorer** » 2010-04-02 10:11 @466

Para realizar eso, te vale con un simple servidor HTTP o FTP, pero si lo quieres hacer a muy bajo nivel, primero debes describir el protocolo que vas a usar.

Debes decir qué información, cuándo y cómo se va a intercambiar, entre servidor y cliente.

Si vas a intercambiar texto y luego un fichero binario, el cliente y el servidor deben saber cuándo termina uno y empieza el otro.

Por ejemplo, si el cliente solicita un listado de los ficheros disponibles, el servidor debe responder con un mensaje de texto, con el nombre de cada fichero, y si es posible, con su tamaño. Cuando el cliente solicite un fichero, debe, a continuación, esperar una entrada igual al tamaño indicado antes. Para eso, con la función read() viene muy bien, porque podemos indicar el tamaño exacto que esperamos. En el servidor, leemos de forma binaria el fichero y lo mandamos con un print() por el sockect.

Foro - Perl en Español

Error con sockets en Perl

Error con sockets en Perl

Publicidad

Re: Error con sockets en Perl

Re: Error con sockets en Perl

Re: Error con sockets en Perl

¿Quién está conectado?