Как использовать потоки для замены цикла подпрограммы в perl / pdl

Обновлять:

Я не использую PDL, поэтому я не знал, что поток в PDL не совсем соответствует понятию потоковой передачи, о котором я говорил. См. потоки PDL и подписи:

Сначала мы должны объяснить, что мы подразумеваем под потоковой передачей в контексте PDL, тем более что термин многопоточность уже имеет особое значение в информатике, которое лишь частично согласуется с его использованием в PDL.

Однако я думаю, что приведенное ниже объяснение по-прежнему полезно для вас, поскольку нужно знать, что такое потоки в обычном смысле, чтобы понять, чем отличаются потоки PDL.

Вот справочная информация Темы в Википедии.

Использование потоков не может волшебным образом сделать вашу программу быстрее. Если у вас несколько процессоров / ядер и если выполняемые вами вычисления можно разделить на независимые фрагменты, использование потоков может позволить вашей программе выполнять более одного вычисления за один время и сократить общее время выполнения.

Самый простой случай - это когда подзадачи поразительно параллельны, не требуя связи / координации между потоками.

Что касается возможного увеличения производительности, рассмотрите следующую программу:

#!/usr/bin/perl

use strict; use warnings;
use threads;

my ($n) = @ARGV;

my @threads = map { threads->create(\&act_busy) } 1 .. $n;

$_->join for @threads;

sub act_busy {
    for (1 .. 10_000_000) {
        my $x = 2 * 2;
    }
}

На моем двухъядерном ноутбуке под управлением Windows XP:

C:\> timethis t.pl 1
TimeThis :  Elapsed Time :  00:00:02.375

C:\> timethis t.pl 2
TimeThis :  Elapsed Time :  00:00:02.515

C:\> timethis t.pl 3
TimeThis :  Elapsed Time :  00:00:03.734

C:\> timethis t.pl 4
TimeThis :  Elapsed Time :  00:00:04.703

...

C:\> timethis t.pl 10
TimeThis :  Elapsed Time :  00:00:11.703

Теперь сравните это с:

#!/usr/bin/perl

use strict; use warnings;

my ($n) = @ARGV;

act_busy() for 1 .. $n;

sub act_busy {
    for (1 .. 10_000_000) {
        my $x = 2 * 2;
    }
}

C:\> timethis s.pl 10
TimeThis :  Elapsed Time :  00:00:22.312