如果我启动多个线程，Perl 的线程连接方法是否会等待第一个线程完成？

Question

     foreach $name (@project_list)
     {
               # a thread is created for each project
               my $t = threads->new(\&do_work, $name);
               push(@threads, $t);
     } 

    foreach (@threads) {
     my $thrd = $_->join;
     print "Thread $thrd done\n";
    }

    sub do_work {
     # execute some commands here...
    }

project_list 是包含 40 个项目的列表。当我为每个项目生成一个线程时， join 方法是否会等待第一个线程完成，然后移至下一个线程，依此类推？

如果是这样的话，那么是否可以避免呢？我的意思是有些线程会比其他线程完成得更快，所以为什么要等待呢？

如果需要更多信息，请告诉我。 谢谢。

Answer 1

$_->join 等待 $_ 指定的线程完成。由于您按顺序推送它们，并且 foreach 按顺序遍历列表，所以您将首先等待第一个线程。

但这并不重要，因为您正在等待所有线程完成。无论您先等待最快的完成者还是先等待最慢的完成者都没有关系 - 无论如何，您都会等待每个人。

Answer 2

为什么要等？这取决于后处理步骤的范围。

如果后处理步骤需要所有线程在开始工作之前完成，那么等待各个线程是不可避免的。

如果后处理步骤特定于每个线程的结果，则应该可以使后处理部分成为线程本身的一部分。

在这两种情况下，$_->join foreach @threads; 都是可行的方法。

---

如果不需要等待线程完成，请使用 detach 命令而不是 join。但是，线程可能返回的任何结果都将被丢弃。

Answer 3

主线程必须在所有线程的持续时间内存活，因此您需要知道它们何时全部完成。可以通过队列或信号量来完成。信号量是最简单的：

use Thread::Semaphore;

my $S = Thread::Semaphore->new();


foreach $name (@project_list)
{
    # a thread is created for each project
    my $t = threads->new(\&do_work, $name);
    $S->down_force();                        # take one for each thread
} 

$S->down();                # this blocks until worker threads release one each
print "Thread $thrd done\n";


sub do_work {
    # execute some commands here...
    $S->up();             # here the worker gives one back when done.
}