确保只有一个 Perl 程序实例正在运行的最佳方法是什么？

Question

有多种方法可以做到这一点，但我不确定哪一种是最好的。

我能想到的是：

• 使用pgrep查找进程。
• 让脚本使用flock来锁定自身，然后在每次运行时检查它是否被锁定。
• 在 /var/run/program_name.pid 中创建一个 pid 文件并检查是否存在，并在需要时比较 pid。

可能还有更多方法可以做到这一点。 您认为最好的方法是什么？

Answer 1

有很多方法可以做到这一点。 PID 文件是传统的方法。 您还可以锁定文件，例如程序本身。 这一小段代码就可以解决这个问题：

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

与 PID 文件相比，一个优点是当程序退出时文件会自动解锁。 以可靠的方式实施要容易得多。

Answer 2

执行旧的 PID 文件技巧。

• 启动进程
• 查看是否有一个名为“myprog.PID”的文件
• 检查是否存在正在运行的进程。 使用 Kill 0, $pid 来匹配 PID
• 如果 PID 进程的程序名称，则 。 匹配，大声抱怨，
• 如果没有，则退出，清理陈旧的“myprog.PID”，
• 创建一个名为“myprog.PID”的文件，然后继续

HTH

欢呼，

Rob

Answer 3

您列出的所有选项都很好。 不过，要注意的一件事是，在极少数情况下，您可能会得到一个运行很长时间的进程（即卡在等待某些东西）。 您可能需要考虑关注其他正在运行的实例已经运行了多长时间，并且如果超过一定时间（例如一天），可能会向自己发送警报。