Foro - Perl en Español

¿Cuándo quieres enterarte de que ha habido cambios en el directorio? ¿De forma inmediata o cada cierto tiempo?

Esta es la labor de un proceso que esté monitorizando los cambios. En Perl hay varias soluciones, con módulos específicos para esta tarea, pero se puede resolver de varias formas sencilla:

• una de ellas es que cada X minutos, el cron (o Tareas programadas) lance un proceso que mire el listado actual del directorio y lo compare con el listado anterior, que ha sido guardado antes en un simple archivo de texto. Cuando termine la comparación, almacena el nuevo listado en ese archivo.
  
• según el sistema operativo, hay facilidades para ser informados de esos cambios, en tiempo real. En Windows podemos usar módulos como Win32::FileSystem::Watcher o Win32::ChangeNotify, para recibir notificaciones. Ejemplo con Win32::ChangeNotify. En Linux, con la biblioteca del sistema INotify, se puede usar el módulo Linux::Inotify, para la misma tarea. Es más, desde hace un par de años existe la distribución File::ChangeNotify, que permite resolver el problema de forma independiente del sistema operativo que se use.
  
• la forma clásica: mediante un testigo. En el directorio que queremos vigilar creamos un archivo con un nombre especial, por ejemplo, '.ultimo'. Luego, tenemos un proceso que se levanta cada X minutos (igual que antes), cuyo trabajo es obtener el listado del directorio. Y se queda con los archivos que tengan una fecha de modificación superior a la del archivo testigo. Los procesa, y termina actualizando el tiempo de modificación del testigo, para la siguiente vez.

Para borrar directorios se puede usar el clásico qx(rm -rf -- $directorio) (si estás en Linux, pero es peligrosísimo), o mucho mejor, usar la función remove_tree() del módulo File::Path.

Necesitas entonces tener un programa que esté permanente esperando ese suceso, como se indica en el segundo punto de mi correo anterior.

Si es para Windows, mira el ejemplo con Win32::ChangeNotify.

Iba a ponerte un ejemplo, pero realmente sería lo mismo que aparece en la sinopsis de File::ChangeNotify::Watcher. Míralo.

Lo que ya no sé es lo fácil que será de instalar.

En el programa monitor, con

while ( my @events = $watcher->wait_for_events() ) { ... }

se quedará esperando la llegada de eventos.

O también con



(Sacado de la documentación de File::ChangeNotify::Event)

En la página de la distribución tienes la lista de dependencias, y sí, hay que instalar unas cuantas cosas.

Pero siempre es mejor usar un comando o programa de gestión de distribución que ahorre todos esos pasos.

Si estás Windows, en la web de trouchelle.com puedes ver las combinaciones de versión Perl/versión de la distribución, para saber cuáles funcionan.

Por ejemplo, veo que con Perl v5.8 funciona hasta la última, la v0.20, mientras que con Perl v5.12 solo funciona hasta la v0.11; y con Perl v5.14, ninguna.