Как предотвратить запуск сценария Perl более одного раза параллельно

Question

У меня есть сценарий, который потенциально работает в течение длительного времени. В Linux. Пока он запущен, при повторном вызове тем же или другим пользователем он должен обнаружить это и отказаться от запуска. Я пытаюсь понять, как создать подходящий семафор, который очищается, даже если процесс по какой-то причине умирает.

Я столкнулся с How to prevent PHP script running more than once?, который, конечно, можно применять, но мне интересно, можно ли это сделать лучше в Perl.

Например, у Perl есть флаг «очистка созданного временного файла при выходе процесса» (File :: Temp :: CLEANUP), который, как я считаю, вызывает триггеры, независимо от того, как завершился процесс. Но этот API можно использовать только для создания временных файлов с рандомизированными именами, поэтому он не будет работать как имя файла для семафора. Я не понимаю основной механизм того, как файл удаляется, но звучит как механизм существует. Как бы это сделать для имени файла, например./Вар/запустить/Foobar?

Или есть лучшие способы сделать это?

Answer 1

use strict; 
use warnings; 
use Fcntl ':flock'; 

flock(DATA, LOCK_EX|LOCK_NB) or die "There can be only one! [$0]"; 


# mandatory line, flocking depends on DATA file handle 
__DATA__ 

Answer 2

Один из способов заключается в том, чтобы поместить файл pid в файл, тогда вы можете проверить скрипт в текущем процессе.

open(my $fh, '>', '/var/run/foobar'); 
print $fh "$$\n"; 
close $fh; 

Тогда вы можете прочитать его:

if (open(my $fh, '<', '/var/run/foobar')) { 
    while (my $PID = <$fh>) { 
     chomp $PID; 
     $proc = `ps hp $PID -o %c`; 
     if ($proc eq "foobar"){ 
      exit(); 
     } 
     break; 
    } 
} 

Вероятно, хотят сделать те, в другом порядке