[Perl] Новичкам: задаем вопросы

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

18.10.2007, 19:42

~~Digimortal~~

Banned

Регистрация: 22.08.2006

Сообщений: 608

Провел на форуме:
6144796

Репутация: 1095

>> Предположим у меня есть массив полученный из файла. Предположим есть 10 потоков. Как разбить этот массив на 10 частей и что бы каждый поток работал со своей частью?

можно что-нить типа этого замутить:

Код:

#!/usr/bin/perl -w
use strict;

my @a = 1..100;  ## к примеру, поместим в массив числа от 1 до 100
push @a, undef;  ## % )
my $num = 10;    ## это - количество потоков

for (0..$num-1) {
print @a[$_*($#a/$num)..($_+1)*($#a/$num)-1], "\n";}

кста, иногда, лучше и не делить массив на равные части а работать с ним из каждого потока, например, извлекая из него элементы shift'ом..