假设你编写了一个非常出色的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（）；
