perl - 如何总结 perl 中线程数组返回的所有值？

Question

我有一些线程执行一个返回整数的子程序。

sub process_tasks {
    ...
    return($nb_item_processed);
}

这是我启动线程的方式

map { threads->new(\&process_tasks, $_) } 1 .. $nb_threads;

如何计算所有返回值的总和？

Answer 1

线程返回的值由join返回。

use List::Util qw( sum );

my $sum =
   sum
      map { $_->join() }
         map { async { process_tasks($_) } }
            1 .. $nb_threads;