Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
8
Task/Concurrent-computing/Perl/concurrent-computing-3.pl
Normal file
8
Task/Concurrent-computing/Perl/concurrent-computing-3.pl
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
#!/usr/bin/perl -l
|
||||
|
||||
use strict; # https://rosettacode.org/wiki/Concurrent_computing
|
||||
use warnings;
|
||||
use Time::HiRes qw( sleep );
|
||||
|
||||
fork or sleep(rand), exit print for qw(Enjoy Rosetta Code);
|
||||
1 while wait > 0;
|
||||
Loading…
Add table
Add a link
Reference in a new issue