¿Dónde está flock() para Perl en Windows?

Question

Tengo un script Perl que me gustaría ejecutar en Windows, usando Strawberry Perl o ActivePerl; No me importa cual. Sin embargo, este script usa llamadas flock(), que no parece estar incluido en ninguna de esas versiones de Perl.

¿Alguien puede ayudarlo a ponerlo en marcha?

Answer 1

¿Está instalado el módulo Fcntl? Pruebe esto:

perl.exe -MFcntl -e 1 

Si se queja, no tiene instalado el módulo Fcntl. Si no se queja, entonces usted tiene acceso a Fcntl :: rebaño, por lo que poner esto en el script:

use Fcntl qw(:DEFAULT :flock); 

y listo.

Answer 2

Intente utilizar perldoc -f bandada para comprobar que las cosas son compatibles & y luego mire en el ejemplo dado para conocer los criterios de uso de la función. Aquí copiados de la perldoc:

C:> perldoc -f acuden

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'}")