Perl programının yalnızca bir örneğinin çalıştığından emin olmanın en iyi yolu nedir?

Question

Bunu yapmanın birkaç yolu var, ancak hangisinin en iyisi olduğundan emin değilim. pgrep kullanarak işlemi için

• Look:

  İşte aklıma gelen şey bu.

• Komut dosyası, kendiliğinden bir sürü kullanarak kilitlenmesini sağlayın ve her çalıştığında kilitlenip kilitlenmediğini kontrol edin.
• /var/run/program_name.pid dosyasında bir pid dosyası oluşturun ve var olup olmadığını kontrol edin ve gerekiyorsa teklifleri karşılaştırın.

Bunu yapmak için daha fazla yol vardır. Sizce en iyi yaklaşım hangisidir?

Answer 1

Bunu yapmanın birçok yolu vardır. PID dosyaları bunu yapmanın geleneksel yoludur. Ayrıca bir program üzerinde, örneğin programın kendisinde bir kilit de tutabilirsiniz. Bu kod küçük bir parça hile olacaktır: PID dosyaları üzerinde

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"; 

bir avantajı dosyaları otomatik olarak program çıkar kilidi elde edilmesi. Güvenilir bir şekilde uygulanması çok daha kolay.

Answer 2

Eski PID dosya hünerini yapın.

• başlangıç ​​süreci
• , eğer öyleyse "myprog.PID"
• adlı bir dosya olup olmadığını görmek
• değilse yüksek sesle şikayet ve çıkış "myprog.PID" ve ardından adında bir dosya oluşturmak

HTH

alkış devam

Rob

Answer 3

Listelediğiniz tüm seçenekler düzgün. Bununla birlikte, bir şey, nadir durumlarda, çok uzun bir süre (yani, bir şey üzerinde bekletilen) bir süreçle sonuçlanabileceğini bilmektir. Diğer çalışan örneğinin ne kadar süredir devam ettiğini ve muhtemelen belirli bir süreyi (belki de bir gün gibi) aşarsa kendinize bir uyarı göndereceğini düşünmek isteyebilirsiniz.