从Perl脚本中删除进程及其所有子进程的最佳方法是什么?它应至少在Linux和Solaris下运行,不需要安装任何其他软件包。
我的猜测是通过解析/ proc中的文件或解析ps
的输出来获取所有进程及其父进程的列表(在Linux和Solaris之间似乎都不可移植);然后杀死树中的所有进程(这似乎容易出现竞争条件)。
在这种特殊情况下,我可以忍受竞争条件,但如何轻松获取进程列表?
答案 0 :(得分:9)
如果你可以杀死进程组,可以使用以下命令:
kill -$signum, $pgid;
其中$signum
是信号编号,$pgid
是进程组ID。但是,信号编号不是很便携,在这种情况下你可以(在某些平台上阅读perlfunc
进行解释)执行以下操作(例如发送SIGTERM
):
kill 'TERM', -$pgid;
答案 1 :(得分:8)
CPAN有答案。是的,我知道您不想安装其他模块,但至少您可以查看实施情况,看看他们在做什么......
答案 2 :(得分:0)
我改编并黑客攻击“rkill”来完成这项工作,很容易。
https://gitlab.com/pslist/pslist/blob/master/pslist
这是“pslist”包的一部分,例如ubuntu的。