in reply to Perl and autoparallelization
Thanks again.
-Qhayaal
#!/usr/bin/perl -w use threads; $thr1 = threads->new(\&subr, 1,10000000 ); $thr2 = threads->new(\&subr, 1,20000000 ); $_ -> join for ($thr1, $thr2); print "Threads returned.\n"; exit; sub subr { ($min,$max)= @_; print "In the thread\n"; for ($i=$min;$i<=$max;$i++) { 1; } return 1; }
|
|---|