线程占用大量CPU

Question

我正在使用Thread帮助在perl中执行线程； 我想说我对线程技术还很陌生。

我的程序中有一个名为“最大线程数”的变量。 如果线程数低于此数目，它将提示一个新线程。 我正在使用while循环将现有线程的当前数量与最大线程变量进行比较。

我假设while循环是消耗我的CPU的事情。

无论如何，在安排和管理线程时，我是否可以拥有“老板”或“经理”线程（核心线程）占用的CPU不那么多？ 如果我的CPU只是由于管理器线程而上升，那么根本就没有线程可言！

Answer 1

如果要保留当前模型，则应该有某种信号（可能是信号量），当有太多工作程序时，线程启动器可以在该信号上阻止该信号。

一个更简单的模型是拥有一组工作程序，并通过Thread :: Queue给他们工作。

my $q = Thread::Queue->new();

my @workers;
for (1..$MAX_WORKERS) {
    push @workers, async {
       while (my $job = $q->dequeue()) {
           ...
       }
    };
}

for (...) {
    $q->enqueue(...);
}

# Time to exit
$q->enqueue(undef) for 0..$#workers;

# Wait for workers to finish.
$_->join() for @workers;

Answer 2

我不使用Perl，但是从一般的异步编程角度来讲，您想要一个不会阻塞主线程的线程池管理器，并且可以通过多种方式来实现。 一方面，您可以将一个线程（是的！）专用于执行以下操作（伪代码）：

while program not terminating:
   wait a quarter-second or so, then
      do your "are-there-enough-threads" check

操作系统或抽象的运行时库通常会提供某种等待函数，该函数将线程暂停直到经过特定时间（因此在此期间不占用任何调度程序资源）。

另外，如果您的程序是事件驱动的（例如在GUI环境中），则可以通过发布自己的计时器消息来在主线程外进行类似的池管理，这是操作系统通常提供的另一项服务。

Answer 3

与其他语言相比，Perl线程的工作量很大。 他们需要大量资源才能启动； 尝试先启动所有需要的线程，然后保持它们运行。 每当您有一个异步任务要执行时，启动新线程将效率很低。