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

时间:2010-10-02 02:54:40

标签: perl

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

E.g。

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变量。

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

由于

5 个答案:

答案 0 :(得分:10)

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

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

答案 1 :(得分:6)

你是否可能匹配grep进程?您始终可以添加| grep -v grep以确保从ps输出中过滤掉该行。

答案 2 :(得分:4)

你可以使用kill命令,似乎更清洁;

#!/usr/bin/perl

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

答案 3 :(得分:1)

添加到@ zigdon的答案:

假设您的$myNodefoo,您的正则表达式为/dtllst foo | foo/

现在,这会在'dtllst foo '中搜索字符串' foo'$checkProc

请注意'foo'中的'dtllst foo '后面有空格。找到此字符串的唯一位置是最后一列CMD,但尾随空格将导致匹配失败。

此外,您的替代' foo'也有空格。如果找到该过程的唯一方法是搜索'dtllst foo',则不需要此备选方案,因为此备选方案还将匹配'foo'作为参数运行到其他命令。

正则表达式是:

if ($checkProc =~ m/dtllst $myNode/) {

答案 4 :(得分:1)

我想我知道为什么会这样。您的代码始终求值为true,因为当您从Perl脚本中调用该命令时,带有您正在使用的模式的psg命令也将出现在psg命令输出的进程列表中。您可能希望保留匹配计数,并在匹配计数超过1时处理与您的模式匹配的进程,而不是在if条件中执行匹配以确定进程是否正在运行。我用过的一段代码:

my $match_count = 0;
my $processes = `ps x`;
while($processes =~ m/(.*?)\n/sg)
{
    my $process = $1;
    chomp($process);
    if($process =~ m/$pattern/)
    {
        #print "$process matched $pattern \n";
        $match_count++;
    }
}

if($match_count > 1)
{
    print "The process is running";
}