Foro - Perl en Español

por **jomarq** » 2015-02-02 10:53 @495

Amigos Perlianos, tengo el siguiente código que es un servidor, mediante el cual me conecto a un cliente por medio de sockets:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use IO::Socket::INET;
 
# auto-flush on socket
$| = 1;
 
# creating a listening socket
my $socket = new IO::Socket::INET(
    LocalHost => 'localhost',
    LocalPort => '232',
    Proto     => 'tcp',
    Listen    => 1,
    Reuse     => 1
);
die "No se puede crear el socket $!\n" unless $socket;
print "El servidor a la espera de conexión en el puerto 232\n";
 
while (1) {
 
    # waiting for a new client connection
    my $client_socket = $socket->accept();
 
    # get information about a newly connected client
    my $client_address = $client_socket->peerhost();
    my $client_port    = $client_socket->peerport();
    print "Conexión desde $client_address:$client_port\n";
 
    # read up to 1024 characters from the connected client
    my $data = "";
    $client_socket->recv( $data, 1024 );
    print "Datos recibidos: $data\n";
 
    # write response data to the connected client
    $data = "ok";
    $client_socket->send($data);
 
    # notify client that response has been sent
    shutdown( $client_socket, 1 );
}
 
$socket->close();
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El tema es que sí tengo conexión, sí recibo datos, pero estos datos están incompletos. La cual es como la siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

POST /SubmitReturn/01050945SKYA082 HTTP/1.1

Host: localhost:232

Connection: Keep-Alive

User-Agent: MC75/4.1

Content-Length: 723

Content-Type: application/jsonColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Incluso como se puede ver en el ítem "Longitud de contenido" me da un valor (723), pero solo muestra estos datos genéricos, no muestra contenido propio, el cual debería ser una serie de datos como velocidad, rumbo, etc. Por favor, recurro a ustedes para hacerme ver cuál es mi error. Gracias por su tiempo.

P.D.: He intentado cambiando el valor 1024 por un número mayor (2048, 4096), pero sin éxito alguno.

Jomarq

#!/usr/bin/perl
use IO::Socket::INET;
 
# auto-flush on socket
$| = 1;
 
my $port = 232;
 
# creating a listening socket
my $socket = new IO::Socket::INET(
    LocalHost => 'localhost',
    LocalPort => $port,
    Proto     => 'tcp',
    Listen    => 1,
    Reuse     => 1
);
die "No se puede crear el socket $!\n" unless $socket;
print "El servidor a la espera de conexión en el puerto $port\n";
 
while (1) {
 
    # waiting for a new client connection
    my $client_socket = $socket->accept();
 
    # get information about a newly connected client
    my $client_address = $client_socket->peerhost();
    my $client_port    = $client_socket->peerport();
    print "Conexión desde $client_address:$client_port\n";
 
    # read up to 1024 characters from the connected client
    my $data = "";
    #$client_socket->recv( $data, 1024 );
    while (<$client_socket>) {
        $data .= $_;
    }
    print "Datos recibidos: $data\n";
 
    # write response data to the connected client
#    $data = "ok";
#    $client_socket->send($data);
 
    # notify client that response has been sent
#    $client_socket->shutdown( 1 );
}
 
$socket->close();
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

(sacado de aquí, parte del famoso artículo de programación en red en Perl)

Ahora bien, se puede hacer de varias formas. En el ejemplo que te he puesto, ves que vamos acumulando los datos que recibimos, hasta que el cliente *cierra* la conexión, y esa es la razón por la cual están comentadas las líneas que siguen, porque ya no tiene sentido enviar información a ese cliente.

Otra opción es la que se ve en los ejemplos enlazados: hay un bucle while() que va procesando cada línea, y responde al cliente según lo que haya enviado.

En cuanto a tu caso, tienes la ventaja de saber el tamaño del cuerpo del mensaje. Al leer esa línea, puedes tomar nota de esa cantidad, y al terminar la cabecera, después de la línea en blanco que sabes que separa el cuerpo, comenzar a leer esa cifra, en otro bucle, en donde vas reduciendo la cifra a medida de que vayas recibiendo datos. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $longitud = $content_length;  # cifra sacada de la cabecera
my $datos;                       # acumulador
while ($longitud > 0) {          # mientras tengamos cosas que leer
    $client_socket->recv( $data, $longitud);
    $datos .= $data;
    $longitud = $content_length - length $datos;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jomarq** » 2015-02-02 15:42 @696

Estimado explorer,

hice lo recomendado, pero mi perl queda en espera; solo arroja el mensaje (ningún otro dato adicional):
Conexión desde <Ip Cliente>:puerto

Y se queda ahí congelado, lo que sospecho es que mi perl (servidor) está esperando alguna respuesta del cliente, como un termino de conexión o algo así.

El cliente envía datos cada minuto, lo que este servidor perl tendría que hacer es leer cada nueva transmisión e imprimirla y luego quizá borrarla de ser el caso.

por **explorer** » 2015-02-02 15:51 @702

Yo arranco el programa y queda ahí esperando.

Desde otra terminal, hago un telnet localhost 232, y se conecta. Le envío algunos textos, y el servidor los replica. Luego meto el carácter de fin de transmisión y la corto, y el servidor vuelve a la espera.

Acuérdate de poner $| = 1, que lo quité para hacer una prueba.

Foro - Perl en Español

Perl y Socket

Perl y Socket

Publicidad

Re: Perl y Socket

Re: Perl y Socket

Re: Perl y Socket

¿Quién está conectado?