Foro - Perl en Español

Buenas noches.

Tengo una cuestión que para mi es algo difícil de resolver.

Tengo un script que llegado el momento lanza otro script en segundo plano con el comando nohup. Este segundo script es un monitoreo constante de una carpeta. Lo curioso de este script es que si lo lanzo en primer plano, funciona perfectamente y me lanza mensajes por la salida estándar de lo que en esa carpeta ocurre, pero si lo lanzo con nohup, no hace nada.

No sé cómo hacer que este script se ejecute en segundo plano realizando lo que tiene que realizar.

La llamada que hago es la siguiente:

y el script a ejecutar es este:


A ver si sabéis qué es lo que ocurre o cómo solucionarlo. Muchas gracias.

El comando nohup no sirve para lanzar procesos en segundo plano, sino para evitar que el proceso termine cuando se envíe el la señal de terminación a los procesos, por ejemplo cuando la sesión termina con un logout. Es para dejar funcionando procesos aún cuando cerremos la sesión.

De la línea de comandos que has puesto, lo que no me gusta es la parte "> /dev/null"

Con esto:

nos aseguramos que la salida estándar y la salida estándar de error terminen en el archivo salida_prueba.txt.

Hummm... ¿por qué $fecha está fuera del bucle? ¿Y si pasa un día entero?

Cierto es que $fecha debe de ir dentro del bucle, pero la cosa es que no funciona si lo ejecuto mediante nohup, no sé por qué es.

¿Y has probado el cambio que te he propuesto?

Sí, pero es que creo que no estoy entendiendo bien esto. He borrado todo el contenido del script, he puesto

y lo he ejecutado con la línea que me has dicho, y entro en el fichero y no aparece absolutamente nada. Por lo que creo que no estoy entendiendo lo que hace esto. Creía que las salidas que el script diera se guardaban en ese fichero, pero no lo hace.

¿Qué es lo que falla?

Pues... no lo sé, porque a mi sí que me funciona:

Observa que salida.txt captura la salida estándar de error generado por nohup.

Si quitamos el redireccionamiento del error, saldrá en pantalla, mientras que el resto se enviará al archivo:

Sí, tienes razón, funciona sin problemas, lo que no me funciona es el script que usa inotify: hace caso omiso y solo quiero que me muestre un mensaje cuando se cree algo en la carpeta especificada, pero no lo hace si uso el nohup, pero en cambio sí si lo hago en primer plano.

HUmmm... lo que quieres es recibir de forma inmediata un cambio en el archivo de texto en cuanto se produce un evento...

Bueno, el problema está en otro sitio.

Por defecto, toda escritura a archivo (y salidas y entradas estándares) está con el búfer activado. Esto se hace para que sean más óptimas las E/S con los dispositivos de almacenamiento, como los discos duros.

Pero este no es tu caso. Quieres que haya cambios en el archivo de registro de forma inmediata.

Lo que tienes que hacer es poner esta línea al principio de tu programa Perl, después de los 'use'.

$| = 1; # elimina búfer en la salida

Eso elimina el uso del búfer de salida, por lo que todos los print hacia el exterior se mostrarán de forma inmediata.

Más información en perldoc perlvar (buscar por $|).

Perfecto, eso era lo que necesitaba. Muchísimas gracias.

Otra cuestión: envío desde perl el siguiente comando que ya conoces desde un script para ejecutar otro script y que no acabe.

qx("nohup perl mon_carpet.pl argumentos > salida_prueba.txt 2>&1 &");

¿Hay alguna forma de capturar el PID en Perl de ese lanzamiento? He visto que en Bash se utilizaría el $!, pero en Perl lo he probado y no funciona. He probado también asignar el qx(nohup...) a una variable, pero no devuelve nada.

Muchas gracias.

El PID de un proceso está guardado en la variable $$ (más información en perldoc -v '$$').

Una vez que el proceso sepa cuál es su PID, lo normal es que lo transmita hacia afuera de alguna manera. Muchos programas dejan su PID en /var/run/, pero tu puedes escoger dónde y de qué forma quieres recogerlo.

qx() no devuelve nada porque

a) la salida está siendo almacenada en salida_prueba.txt
b) si hubiera otra salida, sería almacenada en el archivo que crea nohup

Podrías quitar "2>&1" y enviar el pid por la salida estándar de error. Pero es mucho más fácil abrir un archivo y guardarlo ahí.