Mega Code Archive

 

Categories / Perl / System Functions

 

Using fork to create child processes

#!/usr/bin/perl use warnings; use strict; $| = 1; my $pid = 0; if ( $pid = fork() ) {    print( "Parent executing.\n" );    sleep( 2 );    print( "Parent finished.\n" ); } elsif ( defined( $pid ) ) {    print( "Child executing.\n" );    sleep( 2 );    print( "Child finished.\n" );    exit(); } else {    die( "Could not fork" ); }