document.write('
');
document.write('#!/usr/bin/perl
');
document.write('
');
document.write('use threads;
');
document.write('use threads::shared;
');
document.write('
');
document.write('$|=1;
');
document.write('
');
document.write('my ($global):shared;
');
document.write('my (@threads);
');
document.write('
');
document.write('push(@threads, threads->new(\&mySub,1));
');
document.write('push(@threads, threads->new(\&mySub,2));
');
document.write('push(@threads, threads->new(\&mySub,3));
');
document.write('
');
document.write('$i = 0;
');
document.write('
');
document.write('foreach my $myThread(@threads)
');
document.write('{
');
document.write(' my @ReturnData = $myTread->join ;
');
document.write(' print "Thread $i returned: @ReturnData\n";
');
document.write(' $i++;
');
document.write('}
');
document.write('
');
document.write('sub mySub
');
document.write('{
');
document.write(' my ($threadID) = @_;
');
document.write('
');
document.write(' for(0..10)
');
document.write(' {
');
document.write(' $global++;
');
document.write(' print "Thread ID: $threadID >> $_ >> GLB: $global\n";
');
document.write(' sleep(1);
');
document.write(' }
');
document.write(' return( $id );
');
document.write('}
');
document.write('
');
document.write('
');
document.write('
');