Help for this page

Select Code to Download


  1. or download this
    our $T //= 4;
  2. or download this
    my @threads = map{
    threads->new( \&worker, $filename, $target, $chunks[ $_ ], $chunks
+[ $_+1 ] )
} 0 .. $T-1;
  3. or download this
    my $total = 0;
$total += $_->join for @threads;