CDE
This commit is contained in:
parent
518da4a923
commit
764da6cbbb
6144 changed files with 83610 additions and 11 deletions
9
Task/Concurrent-computing/Perl/concurrent-computing-1.pl
Normal file
9
Task/Concurrent-computing/Perl/concurrent-computing-1.pl
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
use threads;
|
||||
use Time::HiRes qw(sleep);
|
||||
|
||||
$_->join for map {
|
||||
threads->create(sub {
|
||||
sleep rand;
|
||||
print shift, "\n";
|
||||
}, $_)
|
||||
} qw(Enjoy Rosetta Code);
|
||||
Loading…
Add table
Add a link
Reference in a new issue