Estoy conociendo Win32::ChangeNotify y quisiera saber si hay alguna forma de saber exactamente qué archivo o directorio cambió.
No conozco mucho de Perl por eso pido ayuda. Busqué ejemplos pero no encuentro alguno parecido a lo que yo quiero hacer.
¡Disculpen las molestias!
Este ejemplo encontré, hice un print $notify pero me muestra Win32::ChangeNotify=SCALAR(0x468b74), y la verdad no entiendo cómo mostrar qué es lo que se modificó...
Using perl Syntax Highlighting
- #!c:/perl/bin/perl.exe
- use strict;
- use warnings;
- use diagnostics;
- use Win32::ChangeNotify;
- use Win32::Event;
- use File::ChangeNotify;
- my $Path="C:\\xxx\\yyy\\zzz\\";
- my $WatchSubTree=1;
- #my $Events='FILE_NAME'; con este funciona si creo/elimino/o modifico el NOMBRE de un archivo
- my $Events ='LAST_WRITE';
- my $changes=0;
- my $notify = Win32::ChangeNotify->new($Path,$WatchSubTree,$Events);
- while (1)
- {
- print " $changes cambios hasta ahora para $Path.\n";
- $notify->wait;
- ++$changes;
- $notify->reset;
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4