Scripting en Perl help! XD

danao

Buenas,
estoy aqui jodido con un puto script xD

resulta que hace tiempo me funcionaba pero tuve que meter cosas nuevas y no recuerdo el que toque.
El caso es a ver si vosotros podeis ver si estoy haciendo algo mal, porque el script se corta en el while y en serio, no se que hacer o por donde tirar.

Para ejecutar el script es necesario tener el paquete inotify, pero aun asi, solo os pongo el trozo de codigo donde se atasca.

open INOTIFY, "inotifywait -r -m --exclude *~ $DIRFILE 2>/dev/null|" or die ("No lanzo inotify $!");#Lanzamos el comando inotifywait

#print "aqui estoy";
while (my $line=<INOTIFY>){ #Filtramos cada linea de debug que nos da el inotifywait para saber que evento y sobre que elemento se ha realizado un cambio y sincronizar.

Inotify es una herramienta con la que puedes monitorizar un archivo o directorio (tambien de forma recursiva) y se saca por pantalla este tipo de log:

[root@rweb-pub01 tmp]# inotifywait -m -r /var/tmp/
Setting up watches. Beware: since -r was given, this may take a while!
Watches established.
/var/tmp/ CREATE,ISDIR kk
/var/tmp/ OPEN,ISDIR kk
/var/tmp/ CLOSE_NOWRITE,CLOSE,ISDIR kk
/var/tmp/ OPEN,ISDIR kk
/var/tmp/kk/ OPEN,ISDIR
/var/tmp/ CLOSE_NOWRITE,CLOSE,ISDIR kk
/var/tmp/kk/ CLOSE_NOWRITE,CLOSE,ISDIR
/var/tmp/kk/ CREATE lele
/var/tmp/kk/ OPEN lele
/var/tmp/kk/ ATTRIB lele
/var/tmp/kk/ CLOSE_WRITE,CLOSE lele
/var/tmp/ OPEN,ISDIR
/var/tmp/ CLOSE_NOWRITE,CLOSE,ISDIR
/var/tmp/ OPEN,ISDIR
/var/tmp/ CLOSE_NOWRITE,CLOSE,ISDIR
/var/tmp/ OPEN,ISDIR
/var/tmp/ OPEN,ISDIR kk
/var/tmp/kk/ OPEN,ISDIR

el caso es que en <INOTIFY> no se que cojones hace que no pilla lo que va saliendo :(

alguien puede ayudarme? >.<

danao

vale, solucionado al final =/

era una mierda en la puta llamada al "inotify" xDDD

chapad plz

Get

muchisimas veces, ma pasa algo en algun script, pido ayuda, y luego revisandolo otra ve.PAAAM, veo el error, siesq ... es lo q hay. (tas hecho un fiera)

Usuarios habituales

  • Get
  • danao