Foro - Perl en Español

por **princi** » 2012-08-30 08:30 @395

Hola nuevamente, por acá solicitando ayuda.

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ó...

Sintáxis: [ Descargar ] [ Ocultar ]

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

Desafortunadamente, la API de Win32 que implementa esta característica no ofrece ninguna indicación de qué disparó la notificación (que yo sepa). Si está monitorizando un directorio para ver los cambios en los archivos, y necesita saber qué archivo cambió, deberá encontrar alguna otra forma de determinarlo. Dependiendo de exactamente qué esté intentando hacer, podría ser capaz de comprobar los tiempos de modificación de los archivos para encontrar los archivos más recientemente modificados. O puede necesitar almacenar los contenidos del directorio en algún otro sitio y comparar los contenidos actuales con los almacenados cuando reciba la notificación del cambio.

Así que te espera un trabajo más manual: si esperas por un cambio en un directorio, deberás acceder y ver los tiempos de cada archivo, para saber qué archivo cambió.

Cosa distinta es File::ChangeNotify. Con esta distribución sí que puedes saberlo.

por **princi** » 2012-08-30 10:30 @479

¡Ah!, pido disculpas, yo había llegado a

http://www.xav.com/perl/site/lib/Win32/ChangeNotify.html#win32::ipc

y no me aclaraba esa parte...

Sí, después de citar llegué a File::ChangeNotify e intenté:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $contador=0; # solo lo uso para ver la cantidad de cambios, no es muy importante
my $watcher =    File::ChangeNotify->instantiate_watcher
            ( directories => ["C:\\xxx\\yy\\zz\\$yr_actual\\","C:\\xxx\\yy\\zz\\$yr_anterior\\"],
              #filter      => qr/\.(?:pm|conf|yml)$/,
            );
 
    # blocking
    while ( my @events = $watcher->wait_for_events() ) # Este método hace que el espectador se bloquee
                                                       # hasta que ve eventos interesantes, y luego
                                                       # devolverlos en forma de lista.
        { 
        print ". $contador // ¿? . \n"; 
 
        $contador++;
        } 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero sigo sin saber cómo mostrar qué cambió. Pido disculpas. Me cuesta bastante Perl, hago intentos, busco información pero al ser nueva, me cuesta saber cómo buscar, sé que ocupo tiempo importante de ustedes, pero necesito ayuda

...

¡Saludos!

por **explorer** » 2012-08-30 14:30 @646

Bueno, leyendo la documentación del módulo, creo que sería así (no lo he probado).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $watcher = File::ChangeNotify->instantiate_watcher(
    directories    => [                                      # directorios a analizar
                          "C:/xxx/yy/zz/$yr_actual/",
                          "C:/xxx/yy/zz/$yr_anterior/",
                      ],
    sleep_interval => 2,                                     # cada dos segundos
);
 
# esperamos eventos
while ( my @events = $watcher->wait_for_events() ) {          # nos devuelve una lista de eventos
    for my $event (@events) {                                 # por cada evento,
        print $event->path(), ' - ', $event->type(), "\n";    # sacamos la ruta y el tipo de evento
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto está sacado de File::ChangeNotify::Event.

P.D.: observa que se puede usar '/' para separar las rutas, con lo que es más cómodo escribirlas así.

por **princi** » 2012-09-03 08:36 @400

Muchas gracias por tu tiempo, explorer.
¡Funcionó!
Sigo aprendiendo Perl

Foro - Perl en Español

Win32::ChangeNotify

Win32::ChangeNotify

Publicidad

Re: Win32::ChangeNotify

Re: Win32::ChangeNotify

Re: Win32::ChangeNotify

Re: Win32::ChangeNotify

¿Quién está conectado?