lock.pl: flock D, LOCK_EX; print 'hello' . $/; sleep 5; flock D, LOCK_UN; close D;
然后分别开2个窗口执行
2
结果发现flock无效..
flock
LOCK_EX/LOCK_UN未定义
LOCK_EX
LOCK_U
如果加上
use strict; use warnings;
则会看到
Bareword "LOCK_EX" not allowed while "strict subs" in use at lock.pl line 5. Bareword "LOCK_UN" not allowed while "strict subs" in use at lock.pl line 8.
需要手动导入这些常量:
use Fcntl ':flock';# Import LOCK_* constants
标签
查看
99 次