在Perl中,如何检查文件是否被锁定？

我究竟如何检查文件是否被锁定？我有这个功能,但无论我做什么,它都会返回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;
}

解决方法

您已在读取模式和LOCK_EX isn’t meant to be used that way中打开$theFile.

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.