Тематика:: Бассейн содержит группу тематик для того, чтобы выполнить подобные вакансии.

РЕЗЮМЕ

используйте Тематику:: Бассейн;
$pool = Тематика:: Бассейн-> новый (
{
оптимизируйте => центральный процессор, # значение по умолчанию: память

пред => sub {сдвиг; печатайте "стартового рабочего с _n",
сделайте => sub {сдвиг; печатайте "выполнение работы для _n"; полностью измените _},
отправьте сообщение => sub {сдвиг; печатайте "останавливающегося рабочего с _n",

поток => sub {сдвиг; печатайте "направление потока с _n",

контролируйте => sub {печать "монитор с _n",
pre_post_monitor_only => 0, # значение по умолчанию: 0 = также для "делают"

контрольная точка => sub {печатает "checkpointingn"},
частота => 1000,

автозавершение => 1, # значение по умолчанию: 1 = да

рабочие => 10, # значение по умолчанию: 1
maxjobs => 50, # значение по умолчанию: 5 * рабочие
minjobs => 5, # значение по умолчанию: maxjobs / 2
},
потенциальная яма (b c) параметры # для "пред" и "почтовая" рутина
);

$pool-> работа (потенциальная яма (d e f)); # не интересовавший результатом

$jobid = $pool-> работа (потенциальная яма (г h i));
@result = $pool-> результат ($jobid); # ждут результата быть готовы

$jobid = $pool-> работа (потенциальная яма (j k l));
@result = $pool-> result_dontwait ($jobid); # делают _not_ ждут результата

@result = $pool-> waitfor (потенциальная яма (м. n o)); # представляют и ждут результата

$pool-> добавляет; # добавляют рабочего (их)

$pool-> удаляет; # удаляют рабочего (их)

$pool-> рабочие (10); # приспосабливают число рабочих
$pool-> соединение; # ждут всех удаленных тематик рабочего, чтобы закончиться

$workers = $pool-> рабочие;
$todo = $pool-> todo;
$removed = $pool-> удаленный;

$pool-> maxjobs (100); # приспосабливают или (де-) активизируют удушение работы
$pool-> minjobs (10);

$pool-> автозавершение (1); # завершение, когда объект разрушен
$pool-> завершение; # ждут до всех сделанных вакансий
$pool-> аварийное прекращение работы; # заканчивают текущую работу и удаляют всех рабочих

$done = $pool-> сделанный; # простая статистика использования тематики
$notused = $pool-> notused;

Тематика:: Бассейн-> remove_me; # внутри "делают" только