并行:: forkmanager-在父母和孩子之间共享哈希的更好方法

Question

我想使用Parallel::ForkManager的所有孩子的所有元素获得哈希。

use strict;
use Parallel::ForkManager;
my @arr2 = (a, b, c, d);
foreach ( @arr2 ) {
    $pid = $pm->start
    $hash{$_} = localtime;
    # STORE ABOVE ELEMENT TO EXIST HASH
    my $pid = $pm->start and next;
}
$pm->wait_all_children;
READ %hash

输出

$hash{a} = 11:02
$hash{b} = 11:03
$hash{c} = 11:04
$hash{d} = 11:05

是否可以通过run_on_exit回调共享哈希的元素？还是我必须使用外部文件？哪个模块以最简单的方式进行？我尝试了IPC ::可共享和DBM :: Deep。他们不使用我的脚本。

Answer 1

线程可以轻松共享数据：

#!/usr/bin/perl
use warnings;
use strict;
use threads;
use Thread::Queue;
my $q = 'Thread::Queue'->new;
my @workers = map 'threads'->create(sub {
    $q->enqueue([ 'threads'->tid, scalar localtime ]);
}), 1 .. 4;
$_->join for @workers;
my %hash;
while ($q->pending) {
    my $data = $q->dequeue;
    $hash{ $data->[0] } = $data->[1];
}
use Data::Dumper; print Dumper %hash;