Perl 中线程完成后如何清理线程？

Question

我有一个 Perl 脚本，可以在验证某个表达式时启动线程。

while ($launcher == 1) {
    # do something
    push @threads, threads ->create(\&proxy, $parameters);
    push @threads, threads ->create(\&ping, $parameters);
    push @threads, threads ->create(\&dns, $parameters);
    # more threads
    foreach (@threads) {
    $_->join();
    }
}

第一个周期运行良好，但在第二个周期中脚本退出并出现以下错误：

线程已在 launcher.pl 第 290 行加入。 Perl 退出并带有活动线程： 1 正在运行且未加入 0 已完成且未加入 0 运行且分离

我想我应该清理@threads 但我该怎么做呢？我什至不确定这是否是问题所在。

Answer 1

只需在循环结束时清除 @threads 即可：

@threads = ();

或者更好的是，在循环开始时使用 my 声明 @threads ：

while ($launcher == 1) {
    my @threads;

Answer 2

最简单的解决方案是在 while 循环内创建数组 (while {my @threads; ...})，除非您在其他地方需要它。否则，您可以在 while 循环末尾仅使用 @threads = () 或 @threads = undef 。

您还可以在 while 循环外部设置一个变量 my $next_thread; ，然后在 while 循环中首先分配 $next_thread = @threads 并更改您的 foreach< /code> 循环

for my $index ($next_thread .. $#threads) {
    $threads[$index]->join();
}

或跳过它，然后循环遍历最后三个添加的线程的一部分

for (@threads[-3..-1) {
    $_->join();
}