http://www.perlmonks.org?node_id=998112


in reply to Strange (for me) behavior of Parallel::ForkManager

That's expected behavior---finish() is not supposed to return. But why would you want to pass in a code reference as a return code? None of the example code I've looked at does that.

In any case I what you need to do is call finish() within the loop:

while (<LIST>){
    $manager->start and next;
    my @array = split( /\s+/, $_ );
    # do child stuff
    $manager->finish;
}

[download]

Replies are listed 'Best First'.
Re^2: Strange (for me) behavior of Parallel::ForkManager
by Sterh (Novice) on Nov 06, 2012 at 19:28 UTC
    It works , but how to make it go out of the loop?
[reply]
      If you need to leave early, you can use "last". Otherwise it will just read to EOF and then quit.
[reply]
[d/l]
        It does not quit loop after executing last iteration. This is the problem, need it to quit after last iteration but it does not. ...
[reply]
      There's only one process that loops. It loops until it reaches the end of the file, at which point it continues after the loop.
[reply]

In Section Seekers of Perl Wisdom