perl，php程序只运行一个

perl

my $lock_file = getcwd()."/test_speed.lck";
open LCK,">$lock_file" or die "failed to open test_speed lock";
flock(LCK, LOCK_EX | LOCK_NB) or die "failed to aquire test_speed lock";
print LCK $$;
chmod 0700,$lock_file;
 

php

if(PHP_OS=="Linux")
{
	$fpid=$basdir."get_all_url.pid";
	if(is_file($fpid))
	{
		$oldpid=file_get_contents($fpid);
		$oldpid = preg_replace("/\s|\r|\n/","",$oldpid);
		$cmd=" ps axu|awk '{print \$2}'|grep -e \"^".$oldpid."\$\"|wc -l";
		$ret=`$cmd`;
		if($ret>0) die("find old running!");
	}
	$pid=posix_getpid();
	file_put_contents($fpid,$pid); 
}