Foro - Perl en Español

Tengo una aplicación cliente servidor con IO::Socket. La conexión se cierra si cada 600 segundos (10 min) no se recibe ningún dato desde el cliente al servidor.

¿Cómo puedo saber si el servidor ha recibido o no algún comando desde el cliente antes de llegar al límite de tiempo de conexión, para enviar automáticamente cualquier cosa y mantener la conexión abierta todo el tiempo que desee?

En este tiempo de inactividad, deseo enviar cada 5 min algún mensaje cualquiera y así mantener la conexión abierta.

Gracias.

Una opción es usar IO::Select, que cuenta con funciones que se disparan si ha pasado un determinado tiempo.

De todas formas, con Net::Server puedes crear servidores de forma más cómoda.

La solución profesional es usar POE, naturalmente.

En vez de hacer que el servidor cierre la conexión por inactividad, usa la funcionalidad de keep-alive del protocolo TCP.

Leete la página man tcp(7) y dentro de perlfunc(1) la entrada de setsockopt.