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);
}