Sie könnten Thread::Queue oder eine andere davon verwenden:Gibt es ein Multiprocessing-Modul für Perl?
Wenn das alte System auf diese Weise in Perl geschrieben wurde, könnten Sie den größten Teil davon wiederverwenden.
Nicht funktionierendes Beispiel:
use strict;
use warnings;
use threads;
use Thread::Queue;
my $q = Thread::Queue->new(); # A new empty queue
# Worker thread
my @thrs = threads->create(sub {
while (my $item = $q->dequeue()) {
# Do work on $item
}
})->detach() for 1..10;#for 10 threads
my $dbh = ...
while (1){
#get items from db
my @items = get_items_from_db($dbh);
# Send work to the thread
$q->enqueue(@items);
print "Pending items: "$q->pending()."\n";
sleep 15;#check DB in every 15 secs
}