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() };
...