检查程序是否正在运行,如果不是在perl中运行它

发布时间：2020-12-15 22:07:05 所属栏目：大数据来源：网络整理

导读：我想知道如何检查程序是否运行,如果没有运行该程序. 解决方法使用kill功能向您要检查的进程ID发送一个0(零)信号.如果进程存在,该函数返回true,否则返回false. 例： #-- check if process 1525 is running$exists = kill 0,1525;print "Process is runningn

我想知道如何检查程序是否运行,如果没有运行该程序.

解决方法

使用kill功能向您要检查的进程ID发送一个0(零)信号.如果进程存在,该函数返回true,否则返回false.

例：

#-- check if process 1525 is running
$exists = kill 0,1525;
print "Process is runningn" if ( $exists );

您可以使用系统调用从命令行调用任何程序.这只有在不需要捕获程序的输出时才有用.

#!/usr/bin/perl
use strict;
use warnings;
my $status = system("vi fred.txt");

或者如果你不想涉及到shell：

#!/usr/bin/perl
use strict;
use warnings;
my $status = system("vi","fred.txt");

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!