Perl 打开和集群超时

Question

Perl 中的“open”函数是否会自动检查文件是否被锁定并等待解锁？如果是这样，它会等待多长时间，或者我如何控制这段时间？

我有 5 个分叉进程将数据附加到同一个文件。每个分叉的进程基本上都会打开文件，然后将其聚集在一起。然后它会附加其数据并关闭文件处理程序以解锁文件，以便其他分叉进程可以使用它。

一切都按预期进行，但我担心如果其中一个分叉进程需要很长时间才能完成其任务，则打开命令可能会超时。

Answer 1

flock 只防止使用flock 获得锁；它不会阻止文件被打开、读取、修改或删除。

没有LOCK_NB 标志的flock 将阻塞，直到获得锁或被信号中断。

带有LOCK_NB 标志的flock 将立即返回。

• 如果flock 能够获得锁，则返回true。
• 如果flock 无法获得锁，它将返回false，并设置errno。
  • $!{EINTR} 表示操作被信号中断。
  • $!{EWOULDBLOCK} 表示需要等待，但指定了 LOCK_NB。

Answer 2

不，open 根本不与锁交互。锁定文件只是防止其他人锁定它，没有别的。