Mega Code Archive

 

Categories / Perl / System Functions

 

Using waitpid

#!/usr/local/bin/perl  $procid = fork();  if ($procid == 0) {      # this is the child process      print ("this line is printed first\n");      exit(0);  } else {      # this is the parent process      waitpid ($procid, 0);      print ("this line is printed last\n");  }