Mega Code Archive

 

Categories / Perl / System Functions

 

The waitpid function

#!/usr/bin/perl use warnings; use strict; my ( $pid, $pid2 ); $| = 1; if ( ( $pid = fork() ) && ( $pid2 = fork() ) ) {    print( "I have to wait for my kids.\n" );    my $straggler = waitpid( $pid, 0 );    print( "Finally $straggler finished, now I can go.\n" ); } elsif ( $pid && defined( $pid2 ) ) {    print( "Kid 2: Mine is not...\n" );    print( "Kid 2: Hey! Wait for me!!!\n" );    exit(); } elsif ( defined( $pid ) ) {    print( "Kid 1: My parent is very patient...\n" ); } else {    die( "Forking problems: " ); }