perl - 如何在Windows中杀死进程树

Question

嗨，我有这个过程树:

上面的屏幕截图显示了一个进程树。在我的Perl脚本中，我知道dscli的PID。我编写了以下代码来杀死单个PID:

use Win32::Process;
use strict;
use warnings;

if(defined($ARGV[0])){
    my $pid = "$ARGV[0]";
    my $exitcode = 0;
    Win32::Process::KillProcess($pid, $exitcode);
}else{
    print "No argument provided :(\n";
}

问题是在我的脚本中我不知道Java进程的PID。我必须获取dscli的子PID，它是Java进程。如果我使用上面的代码杀死了dscli的PID，那么child(java)不会死掉。

所以我的问题是，如何使用perl杀死dscli的子代的Java进程？

Answer 1

您可以使用Windows命令TASKKILL /T终止进程及其子进程。

$pid = ...;
system("TASKKILL /F /T /PID $pid");