Où est flock() pour Perl sur Windows?

Question

J'ai un script Perl que je voudrais exécuter sur Windows, en utilisant soit Strawberry Perl ou ActivePerl; Je me fiche de qui. Cependant, ce script utilise les appels flock(), ce qui ne semble être inclus dans aucune de ces versions de Perl.

Quelqu'un peut-il aider à mettre cela en place?

Answer 1

Le module Fcntl est-il installé? Essayez ceci:

perl.exe -MFcntl -e 1 

En cas de problème, le module Fcntl n'est pas installé. Si elle ne se plaint pas, alors vous avez accès à Fcntl :: troupeau, alors mettez cela dans votre script:

use Fcntl qw(:DEFAULT :flock); 

et vous partez.

Answer 2

Essayez d'utiliser perldoc -f flock pour vérifier que les éléments sont pris en charge & puis examinez l'exemple donné pour connaître les critères d'utilisation de la fonction. Ici copié du perldoc:

C:> perldoc -f troupeau

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