Perl获取指定进程的子进程

最新推荐文章于 2025-12-01 12:56:28 发布

原创

最新推荐文章于 2025-12-01 12:56:28 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #测试 #linux

项目中为控制并发需获取指定进程的子进程数。最初使用Linux命令实现，但导致高CPU占用。后改为读取文件方式，CPU占用降至约3%，性能显著提升。

因为项目中需要获取指定进程的子进程个数以便控制并发，首先想到的是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;
            }
    
            while(my $pidfile = readdir(DIR)) {
                next unless ($pidfile =~ m/^\d+$/);