Есть скрипт, который нежелательно запускать одновременно более одного раза.
В скрипте есть проверка на такой запуск:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
# Блок фиксации отметки о запуске скрипта, для предотвращения запуска второй копии.
$pidfile=$ps_logpath."pid.txt";
if (-e $pidfile) {
unless (open(PIDFILE, $pidfile)) {
#Если найден - то выходим
open ($ps_file101,">>".$ps_repalllog) || die;
print $ps_file101 $zver." Find previous PID: ".$oldpid." - exit\n";
print $ps_file101 $zver." Update FINISH at ".formatdatetime("DD.MM.YYYY hh:mm:ss", time)."\n";
print $ps_file101 "==============================================================\n";
close $ps_file101;
exit(1);
}
$oldpid=<PIDFILE>;
close PIDFILE;
if ($oldpid > 1 && kill(0,$oldpid)) {
#Если найден - то выходим
open ($ps_file101,">>".$ps_repalllog) || die;
print $ps_file101 $zver." Find previous PID: ".$oldpid." - exit\n";
print $ps_file101 $zver." Update FINISH at ".formatdatetime("DD.MM.YYYY hh:mm:ss", time)."\n";
print $ps_file101 "==============================================================\n";
close $ps_file101;
exit(1);
}
}
open(PID, ">$pidfile") or die;
print PID $$;
close(PID);
Хочу сделать такую проверку лучше и по возможности без временных файлов.
Использую такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
{
use Fcntl ':flock';
open my $self, '<', $0 or die "Fail on open self: $!";
my $locked = flock($self, LOCK_EX | LOCK_NB);
unless ($locked)
{
&log("Скрипт уже запущен, завершаю работу",'*');
exit(1);
};
}
Но он почему-то не работает.
Даже если заменить $0 на внешний файл, а режим открытия с '<' на '>' (у меня на отладке Windows, а
тут про такой баг писали), все-равно не работает.
Что не так в коде?
________________________
Мы смотрим с оптимизмом...
...в оптический прицел.
