Parallel::PreforkとParallel::ForkManagerのちがい。

parallel-forkmanager.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Parallel::ForkManager;

my @all_data = qw/hoge fuga foo bar fizz buzz/;

my $pm = new Parallel::ForkManager(3);

for my $data (@all_data) {
    $pm->start and next;

    sleep 1;
    warn "data: $data\n";

    $pm->finish;
}

$pm->wait_all_children;

parallel-prefork.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Parallel::Prefork;

my @all_data = qw/hoge fuga foo bar fizz buzz/;

my $pm = Parallel::Prefork->new({
    max_workers  => 3,
    trap_signals => {
        TERM => 'TERM',
        HUP  => 'TERM',
    }
}); 

while ($pm->signal_received ne 'TERM' and @all_data) {
    my $data = shift @all_data;

    $pm->start and next;

    sleep 1;
    warn "data: $data\n";

    $pm->finish;
}

$pm->wait_all_children;