如何检查Unix进程是否在Perl中运行？

Question

在UNIX中,我通过执行以下命令来检查进程是否已启动;

例如

psg dtllst pe99

如果进程正在运行,则返回以下输出;

UID    PID    PPID    C    STIME    TTY    TIME CMD
pe99   1234   1       0 03:29:44    pts/8  0:01 dtllst pe99

现在在Perl中,我希望能够找出这个过程是否正常.到目前为止,我正在做以下事情

`my $checkProc = `psg dttlst | grep $myNode 2>&1`;`    #where $myNode is something like pe01 or pe02 or pe65 or pe99 etc...

在此之后,我执行以下操作以查看上面的Perl命令是否已返回我要查找的进程是否已启动;

if ($checkProc =~ m/dtllst $myNode | $myNode/) {
    #yes, process is up
} else {
    #no, process is down
}

但是这不起作用 - 具体来说,无论UNIX进程是否存在,我的代码总是将if语句计算为true.我知道这是错的.我试图逃避正则表达式中的"$"字符,看看这是否是问题,我也尝试从正则表达式中删除Perl变量.

我在这里错过了什么？我知道我的正则表达式在某处错了:(

谢谢

Answer 1

您可以使用Proc :: ProcessTable来避免必须启动外部命令并解析其输出.就像是

use Proc::ProcessTable;
...
my $t = Proc::ProcessTable->new;
my $is_running = grep { $_->{cmndline} =~ /^dtllst $myNode/ } @{$t->table};

Answer 2

你是否可能匹配grep进程？您可以随时添加一个| grep -v grep以确保从ps输出中过滤掉该行.

Answer 3

您可以使用 kill 命令，这似乎是一种更简洁的方法；

#!/usr/bin/perl

#-- check if process 11325 is running
$exists = kill 0, 11325;
print "Process is running\n" if ( $exists );