Concurrent computing: Difference between revisions

→‎{{header|Perl}}: Remove extraneous pasted copy of code
(→‎{{header|Perl}}: Remove extraneous pasted copy of code)
Line 1,558:
 
=={{header|Perl}}==
{{libheader|Time::HiRes}}
<lang perl>use threads;
use Time::HiRes qw(sleep);
 
$_->join for map {
threads->create(sub {
sleep rand;
print shift, "\n";
}, $_)
} qw(Enjoy Rosetta Code);</lang>
 
Or using coroutines provided by {{libheader|Coro}}
<lang perl>use fe
 
=={{header|Perl}}==
{{libheader|Time::HiRes}}
<lang perl>use threads;
use Time::HiRes qw(sleep);
Line 1,586 ⟶ 1,571:
Or using coroutines provided by {{libheader|Coro}}
<lang perl>use feature qw( say );
use Coro;
use Coro::Timer qw( sleep );
 
$_->join for map {
async {
ature qw( say );
use Coro;
use Coro::Timer qw( sleep );
1,480

edits