Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
$_->join for @threads; ## Wait for tehm to finish;

exit; ## Done
  2. or download this
    > ls * | perl -s tdemo.pl -WORKERS=5
[1] Processing workiterm '2of12inf.dic'
...
[1] Processing workiterm '3'
[4] Processing workiterm '345241'
...
  3. or download this
    >tdemo -WORKERS=3 work.dat
[2] Processing workiterm '00001'
...
[3] Processing workiterm '00007'
[2] Processing workiterm '00008'
...