यह निर्धारित करें कि विंडोज

Question

पर पर्ल में फ़ाइल का उपयोग किया जा रहा है या नहीं, मैं कुछ पर्ल लिख रहा हूं जो विंडोज मीडिया सेंटर पर दर्ज टीवी शो लेता है और कुछ मानदंडों के आधार पर उन्हें स्थानांतरित/नाम/हटा देता है।

चूंकि पर्ल काफी बार चलता है, इसलिए मैं साफ-सफाई करना चाहता हूं कि फ़ाइल उपयोग में है या नहीं (दूसरे शब्दों में, शो रिकॉर्ड होने की प्रक्रिया में है) इसलिए मैं इसके साथ कुछ भी करने से बच सकता हूं।

मेरे वर्तमान विधि फ़ाइल की स्थिति पर लग रहा है ("स्टेट" का प्रयोग करके) और 5 सेकंड के बाद इसे फिर से तुलना, इसलिए जैसे:

sub file_in_use 
{ 
    my $file = shift; 

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

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

यह काम करने के लिए लगता है, लेकिन मैं सचेत कर रहा हूँ कि वहाँ ऐसा करने के लिए शायद एक बेहतर और साफ तरीका है।

क्या आप सलाह दे सकते हैं?

Answer 1

रिकॉर्डिंग हैं प्रक्रिया फ़ाइल को लॉक करती है, आप इसे रीड-राइट मोड में खोलने का प्रयास कर सकते हैं और देख सकते हैं कि यह ERROR_SHARING_VIOLATIONGetLastError के रूप में विफल रहता है (पर्ल के $^E विशेष चर के माध्यम से पहुंचाया गया है)।

उदाहरण के लिए:

Dir100526Lt.pdf एडोब रीडर द्वारा खुले साथ

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

नमूना उत्पादन:

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

बाद में पता है कि किसी भी समय आप पहली बार एक स्थिति का परीक्षण हो और उसके बाद के परिणाम के आधार पर कार्य वह परीक्षण, आप race condition बना रहे हैं। ऐसा लगता है कि सबसे खराब यह अपने आवेदन में आपको काट सकता है निम्न अशुभ अनुक्रम में है:

1. परीक्षण ऊपर
2. जवाब के रूप में उपलब्धता के लिए एक वीडियो: उपलब्ध है!
3. इस बीच में, एक रिकॉर्डर शुरू होता है और
4. वापस वीडियो ताले अपने कार्यक्रम में, आप वीडियो ले जाने की कोशिश की, लेकिन यह एक साझा उल्लंघन

Answer 2

केवल सुधार मेरा सुझाव है, एक ही बार में आपकी फ़ाइलों के stat सब करने के लिए है ताकि आप केवल बजाय हर फ़ाइल के लिए 5 सेकंड सो में से एक समय 5 सेकंड के लिए सोने के लिए की जरूरत है:

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