Gdzie jest flock() dla Perla w systemie Windows?

Question

Mam skrypt Perl, który chciałbym uruchomić w systemie Windows, używając albo Strawberry Perl lub ActivePerl; Nie obchodzi mnie, które. Ten skrypt jednak używa wywołań flock(), które nie wydają się być zawarte w żadnej z tych wersji Perla.

Czy ktoś może pomóc w uruchomieniu tego?

Answer 1

Czy zainstalowany jest moduł Fcntl? Wypróbuj to:

perl.exe -MFcntl -e 1 

Jeśli narzeka, nie masz zainstalowanego modułu Fcntl. Jeśli się nie skarżą, to masz dostęp do FCNTL :: stada, więc umieścić to w skrypcie:

use Fcntl qw(:DEFAULT :flock); 

i już można jechać.

Answer 2

Spróbuj użyć stada perldoc -f, aby sprawdzić, które rzeczy są obsługiwane &, a następnie spójrz na podany przykład, aby poznać kryteria użycia tej funkcji. Tutaj kopiowane z perldoc:

C:> perldoc -f stada

use Fcntl ':flock'; # import LOCK_* constant 

sub lock { 
    flock(MBOX,LOCK_EX); 
    # and, in case someone appended 
    # while we were waiting... 
    seek(MBOX, 0, 2); 
} 

sub unlock { 
    flock(MBOX,LOCK_UN); 
} 

open(MBOX, ">>/usr/spool/mail/$ENV{'USER'}")