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

时间:2008-11-20 16:27:21

标签: linux perl process solaris kill

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

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

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

3 个答案:

答案 0 :(得分:9)

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

kill -$signum, $pgid;

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

kill 'TERM', -$pgid;

答案 1 :(得分:8)

CPAN有答案。是的,我知道您不想安装其他模块,但至少您可以查看实施情况,看看他们在做什么......

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

答案 2 :(得分:0)

我改编并黑客攻击“rkill”来完成这项工作,很容易。

https://gitlab.com/pslist/pslist/blob/master/pslist

这是“pslist”包的一部分,例如ubuntu的。