Help for this page

Select Code to Download


  1. or download this
    package main;
    $main::VERSION = (q$Revision: 1.7 $ =~ /(\d+)/g)[0];
    ...
        my $pid = (split(/:/, $_))[0];
        waitpid($pid, 0);
    } # foreach ( @children )
    
  2. or download this
    package main;
    $main::VERSION = (q$Revision: 1.7 $ =~ /(\d+)/g)[0];
    ...
                $run_time += $sleep_time;
            }
        }
    
  3. or download this
    package main;
    $main::VERSION = (q$Revision: 1.7 $ =~ /(\d+)/g)[0];
    ...
        } # while ( $run_time < $total_time )
        #exit 0;
    } # sub do_work