哪里是flock()为Perl在Windows？

Question

我有一个Perl剧本，我想到，无论是使用 草莓Perl 或 ActivePerl;我不关心哪一个。这个脚本，但是，使用 flock() 呼叫，这似乎并没有被包括在这些版本的Perl。

任何人都可以帮助获得该启动和运行？

Answer 1

是否安装了FCNTL模块？尝试这样：

perl.exe -MFcntl -e 1

如果它抱怨，你没有安装FCNTL模块。如果它不抱怨，那么你就可以访问FCNTL ::羊群，所以把这个在你的脚本：

use Fcntl qw(:DEFAULT :flock);

和您去。

Answer 2

尝试使用的perldoc -f涌向检查的事项被支撑＆然后考虑给定的例子，以知道该函数的使用标准。这里从的perldoc复制：

C：>的perldoc -f涌向

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