Cách tốt nhất để đảm bảo chỉ một phiên bản của chương trình Perl đang chạy?

Question

Có một số cách để làm điều này, nhưng tôi không chắc chắn một trong số đó là tốt nhất.

Đây là những gì tôi có thể nghĩ:

• Look cho quá trình sử dụng pgrep.
• Yêu cầu tập lệnh tự khóa bằng đàn, sau đó kiểm tra xem nó có bị khóa mỗi khi nó chạy không.
• Tạo tệp pid trong /var/run/program_name.pid và kiểm tra sự tồn tại và so sánh các pids nếu cần.

Có thể có nhiều cách để thực hiện việc này. Bạn nghĩ gì là cách tiếp cận tốt nhất?

Answer 1

Có nhiều cách để thực hiện. Tệp PID là cách truyền thống để thực hiện. Bạn cũng có thể giữ một khóa trên một tệp, ví dụ như chính chương trình đó. Đoạn mã nhỏ này sẽ thực hiện thủ thuật:

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

Một lợi thế so với tệp PID là tệp tự động mở khóa khi chương trình thoát. Việc triển khai một cách đáng tin cậy là dễ dàng hơn nhiều.

Answer 2

Làm thủ thuật tệp PID cũ.

• quá trình khởi động
• xem nếu có một tập tin gọi là "myprog.PID"
• nếu như vậy, phàn nàn ầm ĩ và thoát
• nếu không, tạo ra một tập tin gọi là "myprog.PID" và sau đó tiếp tục

HTH

cổ vũ,

Rob

Answer 3

Tất cả các tùy chọn mà bạn liệt kê đều ổn. Một điều với điều này, mặc dù, là nhận thức được rằng trong trường hợp hiếm hoi, bạn có thể kết thúc với một quá trình chạy trong một thời gian rất dài (tức là, bị mắc kẹt chờ đợi một cái gì đó). Bạn có thể muốn suy nghĩ về việc giữ một mắt trên bao lâu chạy dụ khác đã chạy và có thể gửi cho mình một cảnh báo nếu nó vượt quá một khoảng thời gian nhất định (chẳng hạn như một ngày có lẽ).