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

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

解决方法

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

例：

#-- check if process 1525 is running
$exists = kill 0,1525;
print "Process is running\n" 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");