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

发布时间：2020-12-15 23:29:18 所属栏目：大数据来源：网络整理

导读：我需要在创建时创建一个锁定读取的文件,以便在完全编写之前,可能要查找此文件的其他进程不会开始读取它. 我知道我可以创造并锁定它,但我担心这会让我对竞争状态持开放态度. 或者我在这里什么都不担心？如果我打开一个文件进行写入然后打开它以便用另一个进程

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

我知道我可以创造并锁定它,但我担心这会让我对竞争状态持开放态度.

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

解决方法

有一个竞争条件>和>>,但可以使用&lt ;.

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

# >>
open(my $fh,LOCK_EX) or die $!;
seek($fh,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

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

>在临时目录中创建文件,然后
>将文件重命名为文件完成时阅读器监视的目录.

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!