Using waitpid. : waitpid « System Functions « Perl

1. Perl
2. System Functions
3. waitpid

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"); 
} 

   
    
    
    
    
  

Related examples in the same category