Почему эта петля не работает так, как ожидалось?

Question

Почему следующий код:

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

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

my @all_data = ('a','b','c','d','e','f'); 

foreach my $data (@all_data) { 
    # Forks and returns the pid for the child: 
    my $pid = $pm->start and next; 
    print "Hello $pid\n"; 
    $pm->finish; # Terminates the child process 
} 
$pm->wait_all_children; 

печати:

Hello 0 
Hello 0 
Hello 0 
Hello 0 
Hello 0 

Я новичок в Perl и я пытаюсь догнать на многопроцессорной в Perl

Answer 1

От docs for the start method:

Этот метод использует вилку. Он возвращает pid дочернего процесса для родителя и 0 для дочернего процесса.

Как это происходит, функция fork делает то же самое, поэтому start зеркала его.

Родитель может понадобиться ребенку PID для контроля ребенка - посылать сигналы и прочее - но ребенок знает свой собственный PID через $$ переменной:

foreach my $data (@all_data) { 
    $pm->start and next; 
    print "Hello $$\n"; 
    $pm->finish; 
} 

Пример вывода:

Hello 22215 
Hello 22218 
Hello 22219 
Hello 22217 
Hello 22220 
Hello 22216 

Answer 2

мой $ pid = $ pm-> start и next;

«и» логика будет оценивать значение true, если оба аргумента верны. Если первый аргумент является ложным, тогда логика «и» будет содержать ярлык и не будет оценивать второй аргумент

Возможно, вы захотите использовать «или» логику.