无法使Perl的flock正常工作
无法使Perl的flock正常工作
提问于 2011-03-11 07:07:01
我似乎不能让Perl的flock工作。我正在锁定一个文件，检查返回值以确保它实际上是锁定的，并且我仍然能够打开并写入它，就像没有任何问题一样。
下面是我锁定文件的方式
#!/usr/bin/perl -w
use strict;
use Fcntl ':flock';
$| = 1;
my $f = $ARGV[0];
open( my $fh, '>>', $f ) or die "Could not open '$f' - $!";
print "locking '$f'...";
flock($fh, LOCK_EX) or die "Could not lock '$f' - $!";
print "locked\n";
sleep 10;
print "waking up and unlocking\n";
close( $fh );当该脚本处于休眠状态时，我可以摆弄来自不同进程的相同文本文件
#!/usr/bin/perl -w
use strict;
my $f = $ARGV[0];
open( my $fh, '>>', $f ) or die "Could not open '$f' - $!";
print $fh "This line was appended to a locked file!\n";
close( $fh );为什么我可以打开文件并对其进行写入，而不会被告知文件已锁定？
回答 3
Stack Overflow用户
回答已采纳
发布于 2011-03-11 07:09:46
flock()是一个建议锁。您必须让所有进程都使用flock()
还要认识到，您调用flock()的方式会阻塞它，直到它获得一个锁。如果您想要失败，您还必须使用LOCK_NB标志。
open(my $lf, ">>fileIWantToLockOn");
my $gotLock = flock($lf, LOCK_EX | LOCK_NB);
unless ($gotLock)
{
print "Couldn't get lock. Exiting";
exit 0;
}编辑：还注意到flock()不能在NFS上工作
Stack Overflow用户
发布于 2011-03-11 07:09:43
我不认为flock做的是你想的那样。锁定文件不会阻止任何人对该文件执行任何操作，但会尝试获得同一文件上的锁。
从我系统上的man 2 flock：
flock(2)仅设置建议锁；如果对文件具有适当的权限，进程可以忽略flock(2)的使用并在文件上执行I/O。
Stack Overflow用户
发布于 2011-03-11 07:11:09
flock使用建议锁。此外，这意味着只有尝试flock同一文件的其他进程才会意识到该文件已被锁定。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/5267019
复制相关文章
相似问题
腾讯云开发者
