Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-Parallel-ForkManager/examples

Name	Size	Perms	Modified	Actions
[ .. / .. ]
callback.pl	1.09 KB	-rw-r--r--	2019-11-15 09:21:28	Edit Del
callback_data.pl	1.04 KB	-rw-r--r--	2019-11-15 09:21:28	Edit Del
parallel_get.pl	591 B	-rw-r--r--	2019-11-15 09:21:28	Edit Del

Editing: callback.pl (1.09 KB)

use lib '.';
use strict;
use Parallel::ForkManager;

my $max_procs = 3;
my @names = qw( Fred Jim Lily Steve Jessica Bob );
# hash to resolve PID's back to child specific information

my $pm = Parallel::ForkManager->new($max_procs);

# Setup a callback for when a child finishes up so we can
# get it's exit code
$pm->run_on_finish(
  sub { my ($pid, $exit_code, $ident) = @_;
    print "** $ident just got out of the pool ".
      "with PID $pid and exit code: $exit_code\n";
  }
);

$pm->run_on_start(
  sub { my ($pid,$ident)=@_;
    print "** $ident started, pid: $pid\n";
  }
);

$pm->run_on_wait(
  sub {
    print "** Have to wait for one children ...\n"
  },
  0.5,
);

foreach my $child ( 0 .. $#names ) {
  my $pid = $pm->start($names[$child]) and next;

  # This code is the child process
  print "This is $names[$child], Child number $child\n";
  sleep ( 2 * $child );
  print "$names[$child], Child $child is about to get out...\n";
  sleep 1;
  $pm->finish($child); # pass an exit code to finish
}

print "Waiting for Children...\n";
$pm->wait_all_children;
print "Everybody is out of the pool!\n";