使用Parallel::ForkManager时，父子进程共享哈希的最优方式及run_on_exit可行性疑问

没问题，你完全可以通过run_on_exit回调来实现子进程结果共享到父进程的哈希里，根本不需要用到外部文件～

首先得指出你现有代码里的几个小问题：

• 没有初始化Parallel::ForkManager对象（比如my $pm = Parallel::ForkManager->new(4);，这里的4是允许同时运行的子进程数）
• 子进程逻辑块是空的，而且直接在父进程里赋值$hash{$_} = localtime是无效的——因为子进程和父进程拥有独立的内存空间，父进程的哈希子进程无法修改，子进程的变量父进程也看不到。

正确实现：用run_on_exit回调收集子进程结果 #

Parallel::ForkManager的run_on_exit方法可以注册一个回调函数，当任意子进程退出时，父进程会自动调用这个函数，并且可以接收子进程传递出来的数据。我们可以利用这个特性，让子进程把计算好的结果传递给父进程，再由父进程将数据存入哈希。

下面是完整的可运行示例代码：

use strict;
use warnings;
use Parallel::ForkManager;

my @arr2 = ('a', 'b', 'c', 'd');
my %hash;

# 初始化ForkManager，子进程数量设为数组长度
my $pm = Parallel::ForkManager->new(scalar @arr2);

# 注册退出回调：子进程结束时，将结果写入父进程的哈希
$pm->run_on_exit(sub {
    my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $data) = @_;
    # 子进程传递的数据是哈希引用，合并到父进程的哈希中
    if ($data && ref $data eq 'HASH') {
        %hash = (%hash, %$data);
    }
});

foreach my $item (@arr2) {
    my $pid = $pm->start and next; # 父进程跳过子进程逻辑，直接进入下一次循环

    # 子进程内的操作：生成你需要的结果（这里是当前时间）
    my $current_time = scalar localtime;
    # 将结果打包成哈希引用，通过finish方法传递给父进程
    $pm->finish(0, { $item => $current_time });
}

$pm->wait_all_children;

# 打印最终的哈希结果
foreach my $key (sort keys %hash) {
    print "\$hash{$key} = $hash{$key}\n";
}

方案原理说明 #

• 子进程与父进程内存隔离，所以子进程无法直接修改父进程的哈希，但run_on_exit回调是在父进程的上下文中执行的。子进程通过$pm->finish(0, $data)把结果传递给父进程，父进程再将数据写入自己的哈希，从而实现结果共享。
• 这种方式比外部文件、共享内存更简洁，不需要处理文件锁或复杂的同步逻辑，完全适配你当前的需求。如果是更复杂的实时更新场景，才需要考虑IPC::Shareable这类共享内存模块，但对你的案例来说run_on_exit足够好用。

内容的提问来源于stack exchange，提问作者F. Grela