Windows下Fork与管道：Strawberry Perl 5.38.2子进程数量限制问题

问题现象 #

在Strawberry Perl 5.38.2环境下，运行以下代码时无任何输出：

use Child qw/child/;

my @childs;
for my $i (1 .. 65) {
    push @childs, child {
        my $parent = shift;

        $parent->say("[return $i]");
    } pipe => 1;
}

print $_->read for @childs;

但将子进程数量改为64个时，代码能正常输出。请问如何规避这个数量限制？

可行的解决方法 #

这个限制本质是Windows系统对单个进程可打开的句柄数量上限（默认单进程句柄数上限通常为64左右），加上Child模块的管道机制会为每个子进程创建一对管道句柄，一次性创建65个会触发上限，导致后续子进程无法正常创建或管道无法通信。以下是几种实用的规避方案：

1. 分批创建并处理子进程 #

不要一次性创建所有子进程，分批次执行，每处理完一批（比如64个）再创建下一批，避免同时打开过多句柄：

use Child qw/child/;

my $batch_size = 64;
my $total = 65;

# 分批次循环
for (my $start = 1; $start <= $total; $start += $batch_size) {
    my $end = $start + $batch_size - 1;
    $end = $total if $end > $total;
    
    my @childs;
    # 创建当前批次的子进程
    for my $i ($start .. $end) {
        push @childs, child {
            my $parent = shift;
            $parent->say("[return $i]");
        } pipe => 1;
    }
    
    # 处理当前批次的输出
    print $_->read for @childs;
}

2. 实时处理子进程输出，及时释放句柄 #

创建子进程后立即读取输出并销毁进程对象，确保每完成一个子进程就释放对应的管道句柄，不会积累过多打开的句柄：

use Child qw/child/;

for my $i (1 .. 65) {
    my $proc = child {
        my $parent = shift;
        $parent->say("[return $i]");
    } pipe => 1;
    
    # 立即读取输出
    print $proc->read;
    # 显式销毁进程对象，强制释放句柄
    undef $proc;
}

3. 调整Windows系统的句柄数量上限（可选） #

如果需要长期支持大量子进程同时运行，可以修改Windows系统的句柄限制：

• 打开「本地组策略编辑器」（运行gpedit.msc）
• 导航至「计算机配置」→「Windows设置」→「安全设置」→「本地策略」→「用户权限分配」
• 修改「增加进程工作集」和「调整进程的内存配额」权限，添加当前用户
• 或者修改注册表HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\SubSystems下的Windows项，调整SharedSection参数（注意：修改注册表有风险，操作前务必备份）

不过这种方法需要系统管理员权限，且修改后需重启系统，灵活性不如前两种代码层面的方案。

内容的提问来源于stack exchange，提问作者mpapec