Perl获取指定进程的子进程

因为项目中需要获取指定进程的子进程个数以便控制并发，首先想到的是Linux命令方式，代码如下：

sub check_job_process
{
    while (1) {
        eval {
            foreach my $ppid (keys %g_job_process) {
                my $cnt = `ps --no-header --ppid  $ppid -o "\%p" | wc -l`; chomp $cnt;
                $g_job_process{"$ppid"} = $cnt;
            }
        };
        sleep(5);
    }
} 

实际测试发现，该代码在执行时对CPU占用率很高，有时候高达30%以上，以于想办法降低负载占用。
改用读取文件的形式，代码如下：

sub check_job_process
{       
    while (1) {
        eval {
            my %hash_child;
            foreach my $p (keys %g_job_process) {
                $hash_child{"$p"} = 0;
            }
    
            unless (opendir(DIR,"/proc/")) {
                write_log("Open /proc/ failed: $!");
                sleep(1); next;
            }