Отслеживание фоновых процессов?

Question

Я хочу запустить кучу процессов, называемых Perl, но хочу только запустить 8 за раз (количество ядер на моей машине). Например:

for (my $i = 1; $i <= 20; $i++) { 
     my $command = `some_process $i &`; 
} 

Это будет работать 20 потоков процесса, но я бы запускать из CPU и/или памяти. Я хочу запустить 8 для начала, а затем, когда процесс завершится, запустите еще один, пока не будет завершено.

Что такое простой способ сделать это?

Answer 1

Вы можете попробовать использовать wait bultin (см perlfunc (1)): справочную страницу

for (my $i = 1; $i <= 20; $i++) { 
    wait if $i > 8; 
    my $command = `some_process $i &`; 
} 

Но нет никакой гарантии, что процессы будут равномерно распределены между процессорами.

Answer 2

Я хотел бы предложить, глядя на резьбе perldoc http://perldoc.perl.org/threads.html

Подсчитайте свои темы. Когда один заканчивает, а затем сделать новый поток и просто держать # нитей < = 8.

Это не может в равной степени распределить нагрузку, но это позволит вам запускать несколько параллельных задач, и вы можете ограничить количество вы хотите запустить.