Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Problems? Is your data what you think it is?
 
PerlMonks  

Re^3: Use Coro for reading EventLog on many pc's?

by ikegami (Pope)
on Mar 14, 2011 at 21:03 UTC ( #893161=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Use Coro for reading EventLog on many pc's?
in thread Use Coro for reading EventLog on many pc's?

Thread::Queue is indeed the way to go.

my $q = Thread::Queue->new(); my @threads; for (1..MAX_WORKERS) { push @threads, async { while (my $job = $q->dequeue()) { do_job($job); } }; } # Give work to the workers. for my $job (...) { $q->enqueue($job); } # Signal the workers to exit. $q->enqueue(undef) for 1..MAX_WORKERS; # Wait for the workers to finish. $_->join() for @threads;


Comment on Re^3: Use Coro for reading EventLog on many pc's?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://893161]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-04-18 05:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (462 votes), past polls