在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变量.
我在这里错过了什么?我知道我的正则表达式在某处错了:(
谢谢
解决方法
您可以使用
Proc::ProcessTable来避免必须启动外部命令并解析其输出.就像是
use Proc::Processtable; ... my $t = Proc::Processtable->new; my $is_running = grep { $_->{cmndline} =~ /^dtllst $myNode/ } @{$t->table};
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。