Паралелізація циклу for


9

Я хочу паралелізувати forцикли наступного коду. Як це зробити?

#!/bin/bash
N=$1 
n=$2
for (( i=1; i<=$N; i++ )); do
  min=100000000000000  //set min to some garbage value
  for (( j=1; j<=$n; j++ )); do
    val=$(/path/to/a.out)
    val2=`echo $val | bc`  

      if (( $val2 < $min )); then
        min=$val2; 
      fi
  done
  arr=("${arr[@]}" "$min")
done


Відповіді:


10
#!/bin/bash
# set -x # debug version
N=${1:-123}
n=${2:-45}
workers=${workers:-${3:-10}}
((workers < 1)) && ((workers = 1))
((workers > 20)) && ((workers = 20))

((min=100000000000000))  #set min to some garbage value

work() {
  for i in ${*}; do
    for (( j=1; j<=${n}; j++ )); do
      val=$(/path/to/a.out)
      val2=$(echo ${val} | bc)
      (( val2 < min )) && (( min = val2 ));
    done
    echo ${min}
    # # debug version
    # echo ${i} ${j} ${min}
  done
}

# --
arr=($(
  seq ${N} | xargs -n$[N/workers + 1] | while read i; do
    work ${i} &
  done
  wait
))
echo ${arr[*]}
# --

# # debug version
# seq ${N} | xargs -t -n$[N/workers + 1] | while read i; do
#  work ${i} &
# done
# wait

Завжди використовуйте працівників під час нересту параметризованої кількості процесів і обмежуйте максимальну кількість працівників, які можуть нерестуватися .

xargs -n | while read є простим засобом ітерації списків партіями.

  • seq створює список чисел від 1 до Н.
  • xargs -n розбиває цей список на N / робітників + 1 партію.
    • наприклад, N = 100 робітників = 10 створить 10 рядків до 11 чисел від 1 до 100.
  • while read i читає кожен рядок чисел.
  • work ${i} &просто викликає workфункцію ${i}партією номерів.

До налагодження я додав коментований код налагодження. Просто замініть echoверсію налагодження та код між # --її версією налагодження, і ви зможете побачити, як вона працює на партіях. Відлучіть set -xдля більш детального виводу налагодження, який ви можете перенаправити у файл.

Просто запустіть версію налагодження з різними параметрами, щоб подивитися, як вона працює:

parallel.sh 223 5 1
parallel.sh 223 5 5
parallel.sh 223 5 10
parallel.sh 223 5 20

Відмова: Цей код не синхронізує minзначення між робочими процесами. Отримання мінімального значення не є жахливим вправою. Можливо, це зробить:

parallel.sh 223 5 20 | tr ' ' '\n' | sort -n | head -1

Або просто додати те саме до самого сценарію:

echo ${arr[*]} | tr ' ' '\n' | sort -n | head -1

Чи можете ви пояснити код? Мені незрозуміло, як ви тут використовували робочі нитки.
Річард Вільямс

@prasenjit Готово. Я сподіваюся, що це корисно.
nicerobot

8

Використання GNU Parallel:

#!/bin/bash

N=$1
n=$2

arr=($(
# Generate all combinations of 1..n and 1..N
parallel -k --tag /path/to/a.out {1} {2} '|' bc :::: <(seq $N) <(seq $n) |
  perl -ane 'BEGIN{$min=1e30} $last||=$F[0]; if($F[0] != $last) {print $min,"\n";$min=1e30;$last=$F[0]} $min = $F[2]<$min ? $F[2] : $min; END {print $min,"\n"}'
))
echo ${arr[*]}

Це працюватиме /path/to/a.outна кожному процесорі. Вихід буде таким:

1 1 19269
1 2 6158
1 3 2794
1 4 25104
2 1 13160
2 2 32683
2 3 12535
2 4 15197
3 1 8228
3 2 7673
3 3 8428
3 4 24463

Сценарій perl переглядає перший стовпець і знаходить мінімум у 3-му стовпці, який має той самий перший стовпець.

Ви можете встановити GNU Parallel просто:

wget http://git.savannah.gnu.org/cgit/parallel.git/plain/src/parallel
chmod 755 parallel

Перегляньте вступні відео, щоб дізнатися більше: https://www.youtube.com/playlist?list=PL284C9FF2488BC6D1


Посилання у вашому останньому абзаці посилається на сторінку, що шукає у Facebook, яка повідомляє відвідувачеві, що він виграв ексклюзивний подарунок (реклама чи афера). Відео немає. Ви повинні його видалити.
Марко
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.