# >
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

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

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

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