Вот код, подскажите как дождатся завершения потоков и только потом продолжать работу в основном теле программы (тоесть работу с массивом @finded)
| Код |
#!/usr/bin/perl -w
use threads;
use threads::shared;
my @finded : shared;
for(0..4) {
my $thread = threads->create(\&find);
}
foreach my $thread (threads->list) {
$thread->join;
}
# Тут работаем с массивом @finded
sub find {
# Код выполняемый в каждом потоке
# тут добавляем в расшареный массив @finded
}
|
Спасибо.
Так же буду благодарен за ссылки на статьи или учебники с описанием методов работы с модулем threads. |