teamassociated has asked for the wisdom of the Perl Monks concerning the following question:
Hi! Only used fork a few times so bare with me.
I want to kick off a backup process then once it completes kick off another process. This sample script start its own process and waits. I want to mimic it. Where would I put my backup command, then the other commands to follow?
use strict; use warnings; # Fork child process my $pid = fork(); ############################################################ is this how? --> die "cannot fork: $!" unless defined($pid = open(KID +_TO_READ, "-|", "/usr/openv/netbackup/bin/bpbackup ..."); ############################################################ # Check if parent/child process if ($pid) { # Parent print "Started child process id: $pid\n"; } elsif ($pid == 0) { # Child sleep 30; # Example child process exit 0; # It is STRONGLY recommended to exit your child process # instead of continuing to run the parent script. } else { # Unable to fork die "ERROR: Could not fork new process: $!\n\n"; } ############################### print "Waiting for the child process to complete...\n"; waitpid ($pid, 0); print "The child process has finished executing.\n\n";
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: using fork
by jethro (Monsignor) on Oct 14, 2013 at 16:06 UTC | |
Re: using fork
by moritz (Cardinal) on Oct 14, 2013 at 16:27 UTC | |
Re: using fork
by Laurent_R (Canon) on Oct 14, 2013 at 16:51 UTC | |
by boftx (Deacon) on Oct 15, 2013 at 06:43 UTC |
Back to
Seekers of Perl Wisdom