Re: Fork multi processes


Welcome to the Monastery
	PerlMonks

Re: Fork multi processes

by BrowserUk (Patriarch)

on May 04, 2012 at 09:37 UTC ( [id://968900]=note: print w/replies, xml )

Need Help??

in reply to Fork multi processes

A simple threaded solution. Substitute your rsync commands for the sleep.pl:

#! perl -slw
use strict;
use threads;

for ( 1 .. 10 ) {
    async{
        my $secs = rand 10;
        system "sleep.pl $secs";
    };
    sleep 1 while threads->list(  threads::running ) > 5;
    $_->join for threads->list( threads::joinable );
}
sleep 1 while threads->list(  threads::running );
$_->join for threads->list( threads::joinable );
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?