Perl解析ps fwaux输出

Proc::ProcessTable :

use Proc::ProcessTable;

my $processes = Proc::ProcessTable->new(enable_ttys => 0);
my @children = grep { $_->cmndline =~ /some_pattern_matching_your_children/ }  @{$processes->table};

# or:
my @children = grep { $_->ppid == $parent_pid } @{$processes->table};

但是回到跟踪子进程的更大问题:子进程应该使用pid文件来跟踪自己,而不是将进程表变灰。 File::Pid

作为更新,这就是我最终要做的(在bash中…)

while :
do
        # find parent ids 
        PIDS="`ps -eao bsdtime,pid,command | egrep -v egrep | egrep 'processname' | awk '{print $2}'`"
        count=0
        # loop through ppids and look for children
        for j in ${PIDS}
        do
                #echo "Parent process = $j"
                CPID="`ps -ef | awk '$3 == J {print $2}' J=$j`"
                for i in ${CPID}
                do
                        #echo "Child process = $i"
                        let count++
                done
        done

如果count>0,存在子进程。