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

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

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

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

解决方法

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

kill -$signum,$pgid;

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

kill 'TERM',-$pgid;