Foro - Perl en Español

Hola,
Estoy implementando en perl una aplicación cliente/servidor.

Para mandar datos entre el cliente y el servidor utilizo
syswrite Socket, $var, Length. ,

y para recibir utilizo la función sysread Socket , $var, length

El problema que tengo es que hay veces, cuando la cantidad de datos es grande, que la función sysread no lee todos los datos que se han enviado.
¿Alguien me puede ayudar, para obtener los datos correctamente?

Gracias
Saludos

Bienvenido a los foros de Perl en Español.

Si sysread debe leer más datos que lo que indica la longitud del buffer, lo normal es hacer ese proceso de lectura dentro de un bucle... pero entonces tenemos un problema: ¿hasta cuando debe durar ese bucle? Si ejecutamos un sysread en un handle que no tiene nada que entregarnos, el programa se quedará allí hasta que lo haya (es un proceso bloqueante). Lo que sólo necesitamos saber es si hay o no caracteres que leer.

Una de las formas de saberlo es usando la función select, que indicará qué handles tienen algún pendiente de ser leído o escrito.

Quizás sea más cómodo usar IO::Socket e IO::Select.

Network Programming with Perl|Linux Journal.

Otra opción es abrir el handle en modo no bloqueante. Al hacer el sysread, si devuelve undef, y en $! devuelve EWOULDBLOCK, entonces indica que no hay nada más que leer.

Comunicación Bidireccional con Pipes con Nombre. El uso de Select.