Parallel::ForkManager

在 Perl 裡面如何把這種程式平行化? 假設每次 interation 是獨立的。

foreach $data (@all_data) {
    eat_cpu($data);
}

超簡單

use Parallel::ForkManager; # !!
$pm = new Parallel::ForkManager($MAX_PROCESSES);

foreach $data (@all_data) {
    $pid = $pm->start and next;
    eat_cpu($data);
    $pm->finish;
}