从Perl脚本中删除进程及其所有子进程的最佳方法是什么?它应该至少在
Linux和Solaris下运行,并且不需要安装任何其他软件包.
我的猜测是通过解析/ proc中的文件或解析ps的输出来获取所有进程及其父进程的列表(在Linux和Solaris之间似乎都不可移植);然后杀死树中的所有进程(这似乎容易出现竞争条件).
在这种特殊情况下,我可以忍受竞争条件,但我如何轻松获取进程列表?
解决方法
如果您可以使用查杀进程组,则可以使用以下命令:
kill -$signum,$pgid;
其中$signum是信号编号,$pgid是进程组ID.但是,信号编号不是很便携,在这种情况下你可以(在某些平台上读取perlfunc进行解释)执行以下操作(例如,发送SIGTERM):
kill 'TERM',-$pgid;