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可以马上得到。
分享到:
相关推荐
perl函数手册英文版 Perl提供了可以直接调用的、数目众多的函数。可以对以下对象进行操作: 数组:chomp, join, keys, map, pop, push, reverse, shift, sort, splice, split, unshift, values 数据库:dbmclose, ...
练习14 函数Pod中的Perl 第14章 tie函数,DBM文件和数据库挂钩 14.1 连接变量与类 14.1.1 tie函数 14.1.2 预定义方法 14.1.3 连接标量 14.1.4 连接数组 14.1.5 连接散列 14.2 DBM文件 14.2.1...
extern()和 flock()函数extern()和 flock()函数
主要介绍了PHP文件锁函数flock()详细介绍,本文着重对flock函数的作用和参数讲解,以及使用需要注意的问题,需要的朋友可以参考下
Flock使沟通和协作轻松...一键添加您的应用程序到Flock中,您无需切换工具即可完成工作。 了解Flock如何提供帮助 在一个地方整理所有对话,生产力工具和应用程序。因为不仅仅是信息,而是您如何一起工作至关重要。
Visual mining of moving flock patterns
linux文件锁flock
多智能体flock的仿真,代码有解释说明,是IEEE的文章,相信对大家有帮助
Bird Flock Crow v2.3.unitypackage,unity鸟类集群插件
Flock鱼群算法插件。插件中有一个Demo可供参考学些。导入U3D即可
shell flock how to lock
Flock使沟通和协作轻松自如 使用一个易于使用的工具即可获得所需的所有功能 凝聚您的团队 通过可自定义的渠道和团队目录访问组织中的每个人。...一键添加您的应用程序到Flock中,您无需切换工具即可完成工作。
它还包括一个非阻塞的TryLock()函数,以允许锁定而不会阻塞执行。执照flock是根据BSD 3-条款许可发布的。 有关更多详细信息,请参见LICENSE文件。兼容该程序包使用了Go 1.7中引入的context程序包。 因此,该...
semaphoric - 使用 flock 的轻量级计数信号量并发控制 仅当运行的其他命令(与任意 id 关联)少于一定数量时,才通过运行命令来限制并发性的实用程序。 id 定义了信号量的范围。 如果 id 包含一个 / 则它被视为存储...
linux 真重要 嵌入式 开发
关于鸟的AI插件,可以添加降落点,降落持续时间,降落间隔等,感兴趣的可以下载学习研究。
Flock是一款基于FireFox的浏览器,声称可以带给用户Web 2.0的全新体验.集成了RSS、Blog、书签、图片共享等下一代网络技术,拥有多项目前浏览器所不具备的功能.Flock 比较重要的一个特性是拥有一个Blog编辑器,可与...
物体跟随动效,鸟群动效,在指定空间内运动
非常常用的聚集行为插件 解压缩导入Package使用 全平台支持 内含示例场景