Public ScratchpadDownload, Select Code To D/L

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