空的lock文件不行，那么考慮在lock文件中加入一點內(nèi)容，比如進程的PID號，然后通過檢查該PID號的進程是否還在運行，就能避免上述bug了。在CPAN上有很多現(xiàn)成的模塊能夠完成上述功能，如File::Lockfile， File::Pid， Proc::PID::File 等。

下面是File::Lockfile的一個示例，非常簡單：

以下是代碼片段：

復制代碼代碼如下:

#!/usr/bin/perl -w 

useFile::Lockfile;

# lock文件位于/tmp目錄，名為test_file_lock.lck 

my $lockfile= File::Lockfile->new('test_file_lock','/tmp');

# 檢查腳本是否已經(jīng)運行，如已運行則退出 

if ( my $pid= $lockfile->check ) {

  print"program is already running with PID: $pid";

  exit; 

} 

#更新lock文件 

$lockfile->write; 

# 腳本邏輯 

sleep30

#刪除lock文件 

$lockfile->remove;

通過查看File/Lockfile.pm的源代碼可以看到，判斷l(xiāng)ock文件中記錄的進程是否已經(jīng)運行，簡單的通過 kill -0 $pid 即可實現(xiàn)。所以即使不用上述模塊，自己實現(xiàn)也是非常容易的。

小結：

該方法是在腳本中經(jīng)常用到限制單實例的方法，MySQL 等程序在每次啟動前也會檢查上次遺留的 mysql.pid 文件。

另一個方法：給lock文件加排它鎖，判斷是否有鎖來確保唯一性。