有没有办法在Perl中创建一个锁定在创建点的文件？

Question

我需要在创建时创建一个锁定读取的文件,以便在完全编写之前,可能要查找此文件的其他进程不会开始读取它.

我知道我可以创建并随后将其锁定,但我担心,这给我留下开放的竞争条件.

或者我在这里什么都不担心？如果我打开一个文件进行写入然后打开它以便用另一个进程读取,那么在写入过程关闭文件之前,读取过程是否永远不会看到EOF？

Answer 1

umask(0777)在创建文件之前使用.

文件系统中的文件条目将完全无法访问[*](即权限----------),即使文件句柄仍允许写入.

然后,chmod()该文件一旦你完成:

my $file = 'foo.txt';
my $umask = umask(0777);    # change the umask
open(OUT, '>', $file);      # create the file 
umask($umask);              # reset the umask
print OUT "testing\n";      # put stuff in your file
close(OUT);                 # finished with that...
chmod(0644, $file);         # change the permissions

注意:在严格意义上,这实际上并不是"锁定",操作系统主动阻止访问文件.这是一个文件系统级别的"hack" - 如果你实际上无法打开文件那么它就是锁定的.

[*]除了root处理.

(FWIW,读取半写文件将导致EOF条件.)

Answer 2

有与竞争条件>和>>,但它可以使用被规避+<.

# >
open(my $fh, '+<', $qfn) or die $!;
flock($fh, LOCK_EX) or die $!;
truncate($fh, 0) or die $!;
...

# >>
open(my $fh, '+<', $qfn) or die $!;
flock($fh, LOCK_EX) or die $!;
seek($fh, 0, SEEK_END) or die $!;
...

您描述的场景中也存在竞争条件.

Writer                       Reader
=========================    =========================
- opens file
                             - opens file
                             - locks file
                             - obtains lock on file
- locks file [blocks]        - reads the file [empty]
                             - closes and unlocks file
- obtains lock on file
- writes to file
- writes to file
- closes and unlocks file

避免这个问题的一个常见策略是让作者

1. 在临时目录中创建文件,然后
2. rename 将文件放入文件完成时阅读器监视的目录中.

rename是一个原子动作,因此该文件将完全形成在阅读器监视的目录中.这需要作者的合作,但最好的解决方案.