in reply to Use Coro for reading EventLog on many pc's?

Coro offers a cooperative multitasking solution, and your calls to process_pc aren't cooperating (so to speak). Get rid of the call to cede (which would be useless in a functioning Coro version anyway) and switch use Coro; to use threads;.

Note that both Coro's and threads's async functions return an object (not some id).

Replies are listed 'Best First'.
Re^2: Use Coro for reading EventLog on many pc's?
by gizmo_mathboy (Friar) on Mar 14, 2011 at 20:59 UTC

    Thank you much. That helped speed things up.

    Now to re-read the docs for threads to figure out how to limit the number of threads I have so I don't saturate my network connection. I initially was looking at Thread:Queue but I wasn't understanding it properly. Maybe with this bit of helpful knowledge I can grok the docs.

    gizmo

[reply]

      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;

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom