我想知道如何检查程序是否运行,如果没有运行该程序.
解决方法
使用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");