我正在尝试使用Parallel::ForkManager来并行运行程序,但不幸的是,子例程parallel没有返回任何条目。
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) );
我做错了什么?有什么想法吗?