Mega Code Archive

 

Categories / Perl / System Functions

 

The wait 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 = wait();    print( "Finally $straggler finished, now I can go.\n" ); } elsif ( $pid && defined( $pid2 ) ) {    print( "Kid 2: So is mine...\n" );    exit(); } elsif ( defined( $pid ) ) {    print( "Kid 1: My parent is patient...\n" ); } else {    die( "Forking problems: " ); }