perl pgrep 返回多个 pid

Question

我有一些这样的 perl 代码来获取进程的 pid，如果它 存在。我想知道 pgrep 的返回状态，以便确定 pid 是否有效。代码如下：

#!/usr/bin/perl -w
my $pid=`pgrep -n -f \"akonadiserver\"`;
print "$? ";
chomp $pid;
print "Output1: $pid\n";
$pid=`pgrep -n -f \"akonadiserver\"`;
my $evalue=${^CHILD_ERROR_NATIVE};
chomp $pid;
print "Output2: $pid, $evalue\n";

但是每当我运行它时，我都会得到以下信息：

0 Output1: 3054
Output2: 3056, 0

再跑一次

0 Output1: 3059
Output2: 3061, 0

但在系统中：

$ pgrep -n -f akonadiserver
1862

这里看到的几个问题：

1) 返回的 pid 一直在变化，很可能是匹配的 grep 进程本身。

2) 我没有办法找出返回的 pid 是否有效。 $? 没用。

如何检查返回状态以及如何在 perl 中正确使用 pgrep？

Answer 1

从 Perl 脚本运行 `pgrep -n -f akonadiserver` 相当于从终端运行 sh -c "pgrep -n -f akonadiserver"。

来自perlop：

qx/STRING/：
一个（可能）被插值的字符串，然后作为系统命令使用 /bin/sh 或其等效命令执行。

问题是使用带有pgrep 的-f 选项将匹配用于调用进程的完整命令行。这也将包括当前的pgrep 命令，因为它的命令行看起来像sh -c "pgrep -n -f akonadiserver"，它将匹配字符串"akonadiserver"。由于您还将-n 标志与pgrep 一起使用，它只会返回与"akonadiserver" 匹配的最新进程，这很可能是pgrep 命令本身（sh -c "pgrep -n -f akonadiserver"）。所以这就解释了为什么你得到错误的进程 ID。

但它没有解释为什么它仍然可以从终端窗口工作。原因是在终端窗口中，pgrep 命令使用bash 而不是sh（来自Perl 脚本）运行，有关差异的更多信息，请参阅此问题：Difference between pgrep in sh and bash。因此，从终端窗口运行 pgrep -f 将不包含 pgrep 命令本身，因此它适用于您的情况。

要从 Perl 获得可靠的结果，您应该使用 Proc::ProcessTable：

use feature qw(say);
use strict;
use warnings;

use Proc::ProcessTable;

my $pat = "akonadiserver";
my $pt = Proc::ProcessTable->new();
my @tab;
for my $p ( @{$pt->table} ){
    if ($p->cmndline =~ /\Q$pat\E/) {
        push @tab, {pid => $p->pid, start => $p->start};
    }
}

say $_->{pid} for (sort {$b->{start} <=> $a->{start}} @tab);

Answer 2

在我看来，pgrep 返回由您正在寻找的进程启动的最新 (-n) 子进程的 pid，至少在我的系统上是这样。

这种事情我一直用ps，怎么样：

my $pid = (split(" ",`ps -A | grep \"akonadiserver\"`))[0];

改为，或

my @pids = map{ $_ =~ /(\d+)/; $1 }split("\n", `ps -A | grep \"akonadiserver\"` );
print "mutiple instances: @pids\n" if @pids > 1;
print "pid: ".$pids[0]."\n" if @pids == 1;

让所有实例运行到一个数组中，然后用它做你想做的事情。