Mega Code Archive

 

Categories / Perl / System Functions

 

Waiting for child processes to exit

#!/usr/bin/perl -w $pid = fork(); if ($pid == 0) {    print  "We're in the child process.";    exit(0);  # Terminate child. } elsif (! defined $pid) {      print "Not defined: means an error."; } else {    print "Parent process.";    print "Do something...";    # Reap child.      $id = wait();      # Do something after child dies.    print "Child $id is dead.\n"; }