perl 进程管理

用 Perl 来处理的另一个常见任务是监控和重新启动进程。通常，这是用 Proc::ProcessTable CPAN 模块进行的，它浏览整个进程表，并返回给用户带许多重要属性的进程列表。然而，在这里，我必须推荐 cfengine。与快速的 Perl 工具相比，它提供了更好的进程监控和重新启动进程的选项。如果您想编写这样的工具，那么这只是在做别人做过的事情（而且 cfengine 已经偷了您的轮毂盖）。如果由于个人原因，不想用 cfengine，考虑一下大多数现代 UNIX 系统中附带的 pgrep 和 pkill 实用程序。pkill -HUP inetd 将用一条简洁的命令可以做四行或更多行 Perl 脚本所做的事情。这就是说，如果正在做的进程监控是很复杂或对时间敏感，那么应该明确用 Perl。

为了完整性缘故，这里是一个演示了如何使用 kill() Perl 函数的 Proc::ProcessTable 示例。"9" 作为参数，是最强的 kill() 参数，大体意味着"不管三七二十一，杀死进程再说"。不要以 root 运行这条命令，除非真想杀死 inetd 进程。

清单 5：遍历进程，然后杀死所有 inetd
use Proc::ProcessTable;

$t = new Proc::ProcessTable;

foreach $p (@{$t->table})
{
# note that we will also kill "xinetd" and all processes
# whose command line contains "inetd"
kill 9, $p->pid if $p->cmndline =~ 'inetd';
}