Perl Parallel :: ForkManager空返回

时间:2013-10-30 22:16:15

标签: perl parallel-processing

我正在尝试使用Parallel :: ForkManager来运行并行,但遗憾的是子例程并行不会返回任何条目。

 sub parallel {
   my ($self,$values) = @_;
   my %hash;
   my $pm = Parallel::ForkManager->new(200);
   foreach my $IP ( keys %{$values} ) { 
    my $pid = $pm->start and next;
    $hash{$IP}=$self->getData($IP);
    $pm->finish(0, \$hash{$IP});
   }
   $pm->wait_all_children;
   return %hash;
  }



print Dumper( parallel(%data) );

我做错了什么?有什么想法吗?

1 个答案:

答案 0 :(得分:5)

分叉是创建一个新进程,它是当前进程的副本。在一个进程中更改变量不会在其他进程中更改类似命名的变量。

您修改了子进程的%hash,但是您正在转储父进程的%hash

P :: FM确实提供了一种将数据传递回父进程的机制。它是documented标题下的“从子进程中检索DATASTRUCTURES”。

use Data::Dumper          qw( Dumper );
use Parallel::ForkManager qw( );

use constant MAX_WORKERS => 200;

my %hash;

my $pm = Parallel::ForkManager->new(MAX_WORKERS);
$pm->run_on_finish(sub {
   my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $result_ref) = @_;

   my $IP = $ident;

   warn("Child $IP killed by signal $exit_signal"), return if $exit_signal;
   warn("Child $IP exited with error $exit_code"),  return if $exit_code;
   warn("Child $IP encountered an unknown error"),  return if !$result_ref;

   $hash{$IP} = $$result_ref;
});

for my $IP (keys %$values) { 
   my $pid = $pm->start($IP) and next;
   $pm->finish(0, \$self->getData($IP));
}

$pm->wait_all_children();

print(Dumper(\%hash));