Perl - 捕获意外终止

Question

我有一些代码可以一次生成 5 个线程。我分离这些线程，但有一个共享变量 $THREADCOUNT，我在线程调用调用的子过程开始时递增该变量，并在线程结束时递减。当 $THREADCOUNT 等于 0 时，我会再生成 5 次。

问题是，有时线程会意外退出，并且 $THREADCOUNT 永远不会使其变为 0，因此程序会停止。有没有办法捕获这样的退出并在意外退出时使用 $THREADCOUNT-- ？

非常感谢。这是我的第一篇文章，如果有不清楚的地方，敬请谅解。

克里斯

Answer 1

共享 $THREADCOUNT 变量真的有必要吗？调用threads->list(threads::running)将告诉您是否有任何spawn仍在运行。

Answer 2

我不知道什么时候有人会想要使用detach。我会使用类似

use threads;

my %workers;

sub start_worker {
   my $thread = threads->create(@_);
   $workers{$thread->tid} = $thread;
   return $thread;
}

sub collect_finished_workers {
   for my $thread (threads->list(threads::joinable)) {
      $thread->join()
         if delete($workers{$threads->tid});  # Don't assume we own all threads.
   }
}

sub get_worker_count {
   collect_finished_workers();
   return 0+keys(%workers);
}

“请注意”的方法，这可以解决代码中的问题，即线程在启动后短时间内不会被计为启动。