Perl Parallel::Forkmanager 不允许收集变量值

Question

可能是因为子进程不知道我的散列(见下面的代码)，散列 %output 没有收集任何东西..除了写一个 tmp 文件之外还有其他方法来收集值吗？

foreach $Item (@AllItems) {
$pid = $pm->start($Item) and next;
$Temp = qx($Item);
$output{$Item}= $Temp; // This doesn't collect anything. :-(
$pm->finish;
}

$pm->wait_all_children;

TIA,蒂姆

Answer 1

fork 进程有自己的父进程内存副本(好吧，写时副本)。写入子进程中的散列不会影响父进程中的散列。

要执行您想要的操作，您需要使用某种 IPC。查看perlipc用于对各种可能性进行冗长讨论的联机帮助页。

对于这样的事情，我可能会使用一些简单的东西，比如磁盘上的哈希。 DB_File提供了一个很好的绑定(bind)哈希接口(interface)。以下是您可能会怎么做:

use strict;
use warnings;

use DB_File;

tie my %output, "DB_File", "output.dat" ;

foreach my $item( @AllItems) { 
    my $pid = $pm->start and next;
    $output{$item} = qx($item);
    $pm->finish;
}