检查进程是否正在运行并终止它

Question

我正在使用perl版本5.8.4。

我正在使用一个名为JMP的程序。在打开程序之前，我想用perl来检查程序的进程是否已经在运行。如果它正在运行，我想关闭它。

Answer 1

REWORK：（IDK我怎么到这里来，我只是丢失）

这仅适用于Windows的作品的原因是shell中执行（TASKKILL）。

system('taskkill /F /IM ImageName.exe >nul 2>&1'); 

的可能重复：

How can I kill a program that might not exist from Perl on Win32?

的perl>系统文件：

http://perldoc.perl.org/functions/system.html

TASKKILL文档：

http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/taskkill.mspx?mfr=true

关于语法重定向（基于在awnser从How can I kill a program that might not exist from Perl on Win32?）：

http://ss64.com/nt/syntax-redirection.html

Answer 2

您只需要补充一点：

use autodie 'system'; 
system('killall', '-q', 'JMP'); 

或

use autodie 'system'; 
system('pkill', 'JMP'); 

如果你要处理的错误检查自己，而不是使用autodie，它看起来像

die "Can't launch killall: $!\n"     if $? < 0; 
die "killall killed by signal ".($? & 0x7F)."\n" if $? & 0x7F; 
die "killall exited with error ".($? >> 8)."\n" if $? >> 8; 

Answer 3

使用我在这个问题上从别人那里获得的有用输入，重写答案更适合于这个问题在眼前。

它检查是否正在运行的进程，给你做的比杀更（安慰，如果需要杀死它的子流程的打印输出等）的能力，运行killall如果程序只运行，然后启动jmp。

#!/usr/bin/perl 
use warnings; 
use strict; 

# Read all script-name processes 
open PROS, "ps -ef| grep jmp |"; 

# Iterate the processes 
while ($line = <PROS>){ 
    # If we match the process, kill all instances 
    unless ($line =~ m/grep/){ 
     system 'killall jmp'; 
     last; 
    } 
} 

# Finished with the processes 
close PROS; 

# Start jmp 
exec 'nohup /path/to/jmp &'; 

如果你使用的是Windows，你会想看看taskkill而不是killall。