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

发布时间：2020-12-15 22:00:03 所属栏目：大数据来源：网络整理

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!