假设你编写了一个非常出色的perl程序。比如说一个计数器，那么可能有许多人同时运行你的程序。它运行得如此频繁，以致于你的程序的许多实例互相重叠了。对一个文件，一次只能进行一个写工作，所以在写的同时，要对文件加锁，防止别的用户也进行写操作。 如果你使用windows 95或windows 98计算机，那就不必了，因为windows系统回自动对文件加锁的，如果你是使用windows nt或unix的话，就要对文件加锁了。
我们一般是对要写的文件进行锁定，是用flock函数：
use fchtl qw(:flock);
flock (filehandle,lock_ex);
但是，在试图读写的文件上加锁是很复杂的。由于打开文件句柄和锁定文件至少需要两个步骤的进程，因此设置文件锁就会带来一些问题，首先必须打开文件，然后才能给文件加锁。如果用open（fh,“>filename”），然后用flock函数给文件加了锁，那么在你获得该锁之前，你已经修改了该文件（用>对文件截尾了）。通过截尾你可能修改了该文件，而其他进程则对该文件设置了锁。
若要解决这个问题，就要建个标识文件，它没有什么重要的内容，凡是对该文件拥有锁的人，均能处理该文件。我们可以对这个标识文件进行加锁、解锁，在加锁和解锁之间对你想要读写的文件进行操作。代码如下：
use fcntl qw(:flock);
sub get_lock {
open(sem,">temp.tmp") or die "can't create semaphore: $!"; #temp.tmp就是个标识文件
flock(sem,lock_ex) or die "lock failed: $!":
}
sub release_lock {
close(sem);
}
#上面这两个函数就是通用锁函数
get_lock（）；
……
……
…… #读写文件
release_lock（）；
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
