Określić, czy plik jest używany w Perlu na Windows

Question

Piszę trochę Perla, który bierze programy telewizyjne nagrane w Windows Media Center i przenosi/zmienia nazwy/usuwa je w zależności od pewnych kryteriów.

Ponieważ Perl działa dość często, chciałbym czyściutko określić, czy plik jest w użyciu (innymi słowy, program jest w trakcie rejestrowania), dzięki czemu mogę uniknąć robienia czegokolwiek z nim.

Mój obecny sposób patrzy na status pliku (za pomocą „stat”) i porównuje go ponownie po upływie 5 sekund, tak jak poniżej:

sub file_in_use 
{ 
    my $file = shift; 

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

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

wydaje się działać, ale jestem świadomy, że istnieje jest prawdopodobnie lepszym i czystszym sposobem na zrobienie tego.

Czy możesz doradzić?

Answer 1

Jeśli nagranie proces blokuje plik, możesz spróbować otworzyć go w trybie odczytu i zapisu i sprawdzić, czy nie zadziała z ERROR_SHARING_VIOLATION jako GetLastError (dostęp przez zmienną specjalną Perla $^E).

Na przykład:

#! /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"; 
    } 
} 

Przykładowe wyjście z Dir100526Lt.pdf otwartej przez czytnik Adobe:

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

mieć świadomość, że za każdym razem najpierw sprawdzić stan i potem Działamy w oparciu o wynik ten test, tworzysz race condition. Wydaje się, że najgorsze co może cię ugryźć w aplikacji znajduje się w następującej kolejności pechowy:

1. Test wideo dostępność jw
2. odpowiedź: dostępny!
3. w międzyczasie, rejestrator uruchamia się i zamyka film
4. z powrotem w swoim programie, spróbuj przenieść film, ale nie jest on z naruszeniem podziału

Answer 2

Jedynym poprawy proponuję jest stat wszystkich plików na raz, więc trzeba tylko spać przez 5 sekund jeden raz zamiast spania 5 sekund dla każdego pliku:

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