Jaki jest najlepszy sposób, aby upewnić się, że działa tylko jedna instancja programu Perl?

Question

Istnieje kilka sposobów, aby to zrobić, ale nie jestem pewien, który z nich jest najlepszy.

Oto co mogę myśleć:

• spojrzeć na proces używając pgrep.
• Skrypt blokuje się za pomocą stada, a następnie sprawdza, czy jest blokowany przy każdym uruchomieniu.
• Utwórz plik pid w /var/run/nazwa_programu.pid i sprawdź, czy istnieje, i porównaj pid, jeśli to konieczne.

Prawdopodobnie jest na to więcej sposobów. Jakie jest według Ciebie najlepsze podejście?

Answer 1

Istnieje wiele sposobów, aby to zrobić. Pliki PID to tradycyjny sposób na zrobienie tego. Możesz także przytrzymać plik, na przykład sam program. Ten niewielki fragment kodu wystarczy:

use Fcntl ':flock'; 
open my $self, '<', $0 or die "Couldn't open self: $!"; 
flock $self, LOCK_EX | LOCK_NB or die "This script is already running"; 

Jedną z zalet w stosunku do plików PID jest fakt, że pliki są automatycznie odblokowywane po wyjściu programu. Znacznie łatwiej jest wdrożyć w niezawodny sposób.

Answer 2

Wykonaj starą sztuczkę pliku PID.

• proces startu
• sprawdzić, czy istnieje plik o nazwie „myprog.PID”
• jeśli tak, skarżą się głośno i wyjście
• jeśli nie, utwórz plik o nazwie „myprog.PID”, a następnie kontynuować

HTH

okrzyki,

Rob

Answer 3

Wszystkie wymienione opcje są w porządku. Jedną z nich jest jednak świadomość, że w rzadkich przypadkach może się zdarzyć, że proces będzie działał przez bardzo długi czas (tj. Zatrzymany, czekając na coś). Warto zastanowić się, jak długo działa uruchomiona instancja i ewentualnie wysłać alert, jeśli przekracza on pewną ilość czasu (np. W ciągu dnia).