关于perl中的flock函数

http://www.extmail.org/forum/thread-1066-1-1.html
【转】一段演示flock系统调用的perl程序
  在用perl开发一些系统级软件时，经常会遇到文件锁的问题。为什么要使用文件锁呢？举一个不是太恰当的例子：（注意，确实是不太恰当，但有助于理解）
街上的柜员机（ATM）同时只能服务一个人（数据源），而如果有多个人（不同的进程）要取钱，存钱，则会形成冲突，怎么解决呢？假设柜员机旁边有一个管理员（kernel），柜员机只向持有有效许可（flock，文件锁）的人提供服务，而有效许可只有一份，由管理员发放给申请需要使用ATM的人。

此时假设有A,B,C三个人都要使用柜员机，大家都向管理员提出申请（flock (FH, LOCK_EX) ），管理员根据先后，给最先发请求的人颁发授权（相当于将锁给了这个人），假设是B，此时B获得了授权（flock），可以使用桂员机，他用完之后告诉管理员他用完了（flock(FH, LOCK_UN) ），此时管理员再将授权转交给下一个人A，A又获得了授权（锁，flock），继续使用ATM机器。。。
这个例子虽然不够恰当，但基本将事情说清楚，需要注意的是LOCK_EX是表示排它锁（Exclude），是独占的，一般用于写操作，而如果换成LOCK_SH（Share）则是共享，多用于读取。有时为了保证多进程对文件的读写都是唯一的，无论读写都进行LOCK_EX的请求。

以下是一段演示程序，名叫flock.pl


use Fcntl qw(:flock);
use POSIX qw(strftime);

open (FD, " < source.txt") or die "$!\n";
flock(FD, LOCK_EX);
print "Yeah i get the lock by pid=$$ at ", cur_time(), "\n";
sleep 10;
flock(FD, LOCK_UN);
print "Oops i lose the lock by pid=$$ at ", cur_time(), "\n";
close FD;

sub cur_time {
      strftime "%H:%M:%S", localtime;
}


使用方法：

打开2个控制台（console），假设分别为A窗口和B窗口，在A命令行下输入：

perl flock.pl

此时会显示：
Yeah i get the lock by pid=6122 at 14:20:39
过2，3秒，在B控制台执行同样的命令：

perl flock.pl

则暂时无任何显示，等到A控制台的程序执行完毕，显示：
Oops i lose the lock by pid=6122 at 14:20:49
的时候，B控制台的程序立刻显示：
Yeah i get the lock by pid=6123 at 14:20:49
过10秒后程序结束并显示：
Oops i lose the lock by pid=6123 at 14:20:59
上述代码及演示说明了排他锁（LOCK_EX）是让多进程串行的对数据源进行操作。注意，这个演示里的source.txt必须是实现存在的！。

http://www.adp-gmbh.ch/perl/flock.html

flock calls are advisory. It won't affect any other script unless they use flock themselves as well. Here are five rules governing locks:
Locks don't affect anything except other locks. They don't stop anyone from opening, reading, writing, deleting, etc the file
There can only be one lock on an open file.
If someone holds a LOCK_EX lock, all attempts to get a lock will wait (LOCK_EX meaning exclusive lock) until the other process releases the lock.
If someone holds a LOCK_SH lock, all attempts to get a LOCK_EX will fail, while other processes can aquire another LOCK_SH lock (LOCK_SH standing for shared lock)
The call to flock will not return until the lock can be aquired unless the lock is tried with LOCK_SH | LOCK_NB in which case the flock call will fail if another process has already aquired the lock.
建议使用flock. 这不会影响其他任何不使用flock的Script. 下面是掌握locks的五个规则:
1, Locks只会影响其他locks. 不会阻止进程打开，读，写，删除文件等操作。
2, 每个打开的文件只能有一个lock.
3, 如果一个进程有LOCK_EX （独占）lock，则其他进程只能等待知道该进程释放后取得。（补充：包括请求LOCK_EX和LOCK_SH lock)
4, 如果一个进程有LOCK_SH （共享）lock，则任何试图取得LOCK_EX的进程将失败，但是可以同时取得LOCK_SH lock;
5, 对flock请求直到获得之后才会返回，除非lock是用 LOCK_SH| LOCK_NB（非封锁 non-block）取得的，这时一旦其他进程已经有lock，将直接返回错误信息。
注：最后一点翻译可能有误，不太明白。实验结果：
如果是同时读两个文件并都使用flock函数，如果从前一个进程的LOCK_EX lock申请LOCK_EX lock，或者如果前一个进程是LOCK_SH lock,申请LOCK_EX lock都需要等待第一个进程结束。如果第一个进程是LOCK_SH lock，第二个进程申请LOCK_SH lock可以马上得到。