Help for this page

Select Code to Download


  1. or download this
    my $thread = async( sub{ print "@_"; }, 123, 'fred', {'a'..'f'}, [ 0..
    +9 ] )->join;;
    123 fred HASH(0x3ea93f8) ARRAY(0x3ea9470)
    
  2. or download this
    my $jobNo :shared = 0;
    ...
    ...
    
    ...
    { lock $jobNo; $jobNo = getJobNo(); }
    
  3. or download this
    my %jobNos :shared;
    ...
    ...
    
    { lock %jobNos; $jobNos{ $thread->tid } = getJobNo() };
    ...