Help for this page

Select Code to Download


  1. or download this
      while ( my $item = $my_q -> dequeue() )
    
  2. or download this
    for ( 1..$num_workers ) {
      my $thr = threads -> create ( \&worker_thread );
    ...
    foreach my $thr ( @worker_threads ) {
      $thr -> join();
    }