Determinar si un archivo está en uso en Perl en Windows

Question

Estoy escribiendo algunos Perl que toma programas de TV grabados en Windows Media Center y los mueve/cambia el nombre/los elimina dependiendo de ciertos criterios.

Dado que Perl se ejecuta con bastante frecuencia, me gustaría determinar claramente si el archivo está en uso o no (en otras palabras, el programa está en proceso de grabación) para evitar hacer algo con él.

Mi método actual se ve en el estado de un archivo (usando "stat") y lo compara de nuevo después de 5 segundos, así:

sub file_in_use 
{ 
    my $file = shift; 

    my @before = stat($file); 
    sleep 5; 
    my @after = stat($file); 

    return 0 if ($before ~~ $after); 
    return 1; 
} 

Parece que funciona, pero soy consciente de que hay es probablemente una forma mejor y más limpia de hacer esto.

¿Puede avisarnos?

Answer 1

Si la grabación proceso bloquea el archivo, puede intentar abrirlo en modo lectura-escritura y ver si falla con ERROR_SHARING_VIOLATION como GetLastError (se accede a través de la variable especial $^E de Perl).

Por ejemplo:

#! /usr/bin/perl 

use warnings; 
use strict; 

sub usage { "Usage: $0 file ..\n" } 

die usage unless @ARGV; 

foreach my $path (@ARGV) { 
    print "$path: "; 

    if (open my $fh, "+<", $path) { 
    print "available\n"; 
    close $fh; 
    } 
    else { 
    print $^E == 0x20 ? "in use by another process\n" : "$!\n"; 
    } 
} 

Salida de ejemplo con Dir100526Lt.pdf abierta por el lector de Adobe:

C:\Users\Greg\Downloads>check-lock.pl Dir100526Lt.pdf setup.exe 
Dir100526Lt.pdf: in use by another process 
setup.exe: available

Tenga en cuenta que cada vez que primera prueba una condición y luego actuar en función del resultado de esa prueba, estás creando un race condition. Parece que lo peor que esto podría morder en su aplicación es en la siguiente secuencia de mala suerte:

1. prueba un video disponibilidad que el anterior
2. respuesta: disponible!
3. , mientras tanto, una grabadora pone en marcha y bloquea el video
4. atrás en su programa, intenta mover el video, pero falla con un intercambio de violación

Answer 2

La única mejora que sugeriría es stat todos sus archivos a la vez, por lo que sólo necesita dormir durante 5 segundos una vez en lugar de dormir 5 segundos para cada archivo:

my (%before, %after); 
foreach my $file (@files_that_might_be_in_use) { 
    $before{$file} = [ stat $file ]; 
} 
sleep 5; 
foreach my $file (@files_that_might_be_in_use) { 
    $after{$file} = [ stat $file ]; 

    if ($before{$file} ~~ $after{$file}) { 
     # file is not in use ... 
    } else { 
     # file is in use ... 
    } 
}