perl - 在 Perl 中，如何检查文件是否被锁定？

Question

我究竟将如何检查文件是否被独占锁定？我有这个功能，但无论我做什么，它都会返回 1:

sub is_file_locked
{
  my $theFile;
  my $theRC;

  ($theFile) = @_;
  $theRC = open(HANDLE, $theFile);
  $theRC = flock(HANDLE, LOCK_EX|LOCK_NB);
  close(HANDLE);
  return !$theRC;
}

Answer 1

您已开通 $theFile处于读取模式和 LOCK_EX isn't meant to be used that way .

Note that the fcntl(2) emulation of flock(3) requires that FILEHANDLE be open with read intent to use LOCK_SH and requires that it be open with write intent to use LOCK_EX.