Нужна помощь с fork'ами

[Statos]

Мне нужно поддерживать н-ое число потоков, при отработке одного потока он убивается, общее кол-во рабочих потоков уменьшается на один и создается новый. Я не понимаю как это сделать в родительском процессе, то есть как сделать общение между потоками
Вот примерно код:

Код:

#!/usr/bin/perl
my $pid;
my $n;
	while(1){
		if ($n<10){
			$n++;
			$pid=fork();
			child() unless ($pid)
		}
	}
exit 0;

sub child{
sleep 3;
print "kill $$\n";
#Здесь нужно что-то типо $n-- в родительском
exit 0; 
}

[RXL]

fork() создает не поток, а копию родительского процесса!

Пул процессов или потоков поддерживать не сложно: просто не завершай поток, а дай знать управляющему процессу, что рабочий процесс выполнил задание и ждет следующего. Ожидание можно сделать с любой блокировкой - даже с блокировкой на чтение из трубы. Передавать задания можно через ту же трубу. Кстати, лучше использовать не трубы (pipe), а анонимные unix-сокеты.

[Statos]

Я недавно начал писать на перле, и даже не представляю что такое труба, можешь дать ссылку или что-нибудь из книг посоветовать.
Если не сложно, пример как написать трубу и давать знать управляющему процессу.
Спасибо.

[RXL]

Statos, мой тебе совет: забудь на время про трубы, потоки, процессы и т.п. и займись изучением основ. Иначе просто не о чем будет разговаривать, т.к. на каждый ответ у тебя возникнет десять вопросов.
Рекомендую книгу Perl Programming (Программирование на Perl). Скачать можно тут: https://club.shelek.ru/viewfiles.php?id=19

[Statos]

Хорошо, благодарю.