如何在文件写入时防止其他人读取/写入文件

Question

我想在一个进程正在写入文本文件时加锁。所以没有其他进程可以读取或写入。

Answer 1

Perl 中的flock 文件锁定机制是建议性的。它可用于排除其他进程访问文件如果其他进程也在使用flock。即使这种机制在某些系统中也会出现问题（我正在查看 you，NFS）。

使用其他进程不知道的匿名临时文件可能更可靠，并在完成后重命名文件。

use File::Temp;

my ($fh, $obscure_filename) = tempfile();
print $fh "some data ...\n";
...
close $fh;
rename($obscure_filename, $the_real_name_of_the_file);