如何用Perl杀死整个进程树？

Question

从Perl脚本中删除进程及其所有子进程的最佳方法是什么？它应该至少在Linux和Solaris下运行,并且不需要安装任何其他软件包.

我的猜测是通过解析/ proc中的文件或解析输出来获取所有进程及其父进程的列表(这两种进程ps在Linux和Solaris之间都不可移植); 然后杀死树中的所有进程(这似乎容易出现竞争条件).

在这种特殊情况下,我可以忍受竞争条件,但我如何轻松获取进程列表？

Answer 1

如果您可以杀死进程组,则可以使用以下命令:

kill -$signum, $pgid;

$signum信号编号在哪里,$pgid是进程组ID.但是,信号编号​​不是很便携,在这种情况下你可以(在某些平台上;阅读perlfunc解释)执行以下操作(SIGTERM例如发送):

kill 'TERM', -$pgid;

Answer 2

CPAN有答案.是的,我知道你不想安装额外的模块,但至少你可以查看实现并看看他们在做什么......

https://metacpan.org/pod/Proc::ProcessTable