Perl 文件锁定

文件锁定，或一般的锁定，只是为处理与资源共享有关的问题而提出的各种解决方案之一。文件锁定是一种保护任何文件的安全和完整性的方法。文件锁定的主要动机是允许人们在不造成混乱的情况下对文件进行修改。当一个文件试图被两个或更多的用户修改时，可能会出现冲突。

例如，让我们考虑一个包含项目数据的文件。整个项目组都被允许修改该文件。将有一个CGI脚本在网络上编码，做以下事情。

$file = "project.docx";
$commit = $ENV{'QUERY_INFO'};
open(FILE, "$file"); #opening the document
while() {
  if (m/^$commit$/) {
    print "Change already made\n";
    exit;
  }
}
close(FILE);
push(@newcommit, $commit);
open(FILE, ">$file");
print ...
close(FILE);
print "Commit made!";
exit;

文件的锁定是在系统层面上进行的，这意味着应用锁的实际细节不是用户需要担心的。文件锁的引入是为了对某些文件设置临时限制，以限制它们在不同进程中的共享方式。根据操作的性质，我们提出了两种类型的锁。第一种类型是共享锁，另一种是独占锁。就文件而言，读取访问可以由多个进程共享，因为读取访问不会导致共享资源的状态发生任何变化。因此，可以保持共享资源的一致视图。
在Perl中，文件锁可以通过 flock 命令来完成。

flock()
flock() 接受两个参数。第一个参数是文件柄。第二个参数表示所需的锁定操作。

语法 :

flock [FILEHANDLE], [OPERATION].

这里， OPERATION 是一个数值，它可以是 1 、 2 、 4 或 8。

这些数值有不同的含义，用于执行不同的操作，例如。

lock_sh
lock_ex
lock_nb
lock
_
un

Perl使用数字来表示这些数值。

sub LOCK_SH { 1 }## 设置为共享锁  
sub LOCK_EX { 2 }## 设置为独占锁  
sub LOCK_NB { 4 }## 设置没有任何区块的锁  
sub LOCK_UN { 8 }## 解除对FILEHANDLE的锁定

共享锁：
当你只是想读取文件时，可以应用共享锁，同时也允许其他人在旁边读取同一个文件。共享锁不仅设置了一个锁，而且它首先检查其他锁的存在。这个锁不包括对所有锁的存在检查，而只包括 “独占锁”。如果独占锁存在，它就会等待，直到该锁被移除。删除后，它将作为共享锁被执行。可能同时存在多个共享锁。

语法：

flock(FILE, 1); #从上面的代码

EXCLUSIVE LOCK
当文件要在一群人中使用，并且每个人都有权限进行更改时，就会使用独占锁。一个文件上只有一个独占锁，因此每次只有一个用户/进程可以进行修改。在独占锁中，规则是 “我是唯一的一个。”flock()在脚本中寻找任何其他类型的锁。如果发现了，它就会坚持下去，直到所有的锁都被从脚本中移除。在适当的时候，它会锁定文件。

语法：