Foro - Perl en Español

Hola amigos. Este es mi primer mensaje en el foro. Soy muy nuevo en Perl. Sin embargo, comprendo bastante bien el lenguaje, pero por falta de experiencia, a veces me veo en aprietos y no sé cuál es la mejor manera de hacer algo.

El problema que tengo es el siguiente, y no sé por dónde encararlo:

Tengo un script de perl corriendo en background, y cada x tiempo lee desde una base de datos unos valores, que consisten en una clave => valor.

Con estos datos tengo que crear un timer que me ejecute "clave" una vez vencido el tiempo de "valor", sin que me detenga la ejecución del script.

¿Me expresé bien? Es decir, el script en background obtiene cada x segundos varios pares 'clave' => 'valor', y con ellos necesito lanzar o algún script independiente o algo por separado, para que el script en background siga obteniendo esos pares sin detenerse a ejecutar el timer uno a uno.

La verdad, no me doy idea de cómo lo puedo llevar a cabo. Cualquier ayuda "apta para novatos" será más que bien recibida.

Felicitaciones por el sitio, un invaluable recurso para Perl en español.

Bienvenido a los foros de Perl en español, Normando.

Si el requerimiento es lanzar todos los programas sin esperar a que terminen, lo que yo haría sería crear un fork() y, mientras el proceso padre sigue procesando el resto de claves, el hijo se encargaría de ejecutar el programa que procesara la clave actual.

Por estos foros hemos comentado más de una vez el tema de la programación en paralelo, pero en este caso, no es más que repartir el trabajo entre el proceso padre y los procesos hijos que va creando.

También influye el sistema operativo en donde estés, naturalmente.

Gracias, explorer, por tan pronta respuesta.

Efectivamente es así. El SO es Linux (CentOS5).

A ver si me quedó claro: puedo ir lanzando procesos hijos que tengan un PID único en base a una cadena X que yo genere o construya, ¿y puedo obtener en el padre un retorno de error desde los hijos? Es decir, cuando finaliza, ¿me retorna 0 si funcionó todo correctamente o un 1 (u otro valor) si hubo algún problema?

Buscaré en el foro (además de ver la función fork() en Perl) para ver cómo armo esto.

Muchas gracias.

En principio, no hay comunicación entre el proceso padre e hijo (son dos procesos independientes).

Sí que hay formas de que el padre se entere del resultado de la ejecución de los hijos, pero para eso, primero debería esperar a terminar la ejecución de esos procesos, y nos has dicho que no, que quieres que el proceso padre no se pare.

Lo que pueden hacer los procesos hijos es, primero, ejecutar la tarea que se les pide, y si ocurre algún fallo, actualizar alguna base de datos o tomar las medidas necesarias para tratar ese fallo. Es decir: el padre solo se preocupa de ejecutar los hijos, mientras que son los hijos los verdaderos protagonistas del proceso.

Además, si el padre accede a una base de datos, dependiendo de cómo sea esa base de datos, los hijos podrán entrar a actualizar esa información o no (depende de la base de datos se bloquea en cada acceso, permite acceso simultáneo, etc. etc.)

Muchas gracias por toda la ayuda. Finalmente lo he resuelto con threads que me ha parecido muy fácil de utilizar. Pego a continuación algunos links que me han servido de mucho y deseo compartirlos:

http://www.guero.net/2010/04/threads-en-perl/

http://www.eead.csic.es/compbio/material/bioinfoPerl/node77.html

http://t-a-w.blogspot.com/2006/10/why-perl-is-great-language-for.html

https://wiki.bc.net/atl-conf/pages/viewpage.action?pageId=20548191

http://perldoc.perl.org/threads.html

http://www.mathematik.uni-ulm.de/help/perl5/doc/perlthrtut.html

http://www.xav.com/perl/lib/Pod/perlthrtut.html

Saludos

perlthrtut está en tu propio ordenador... y en todos los ordenadores donde exista una distribución moderna de Perl... no es necesario enlazarlo, te basta con ejecutar perldoc perlthrtut

explorer escribiste:perlthrtut está en tu propio ordenador... y en todos los ordenadores donde exista una distribución moderna de Perl... no es necesario enlazarlo, te basta con ejecutar perldoc perlthrtut

I am very very newbie