Perl与Java中的多线程

Question

我是Perl的新手，正在编写一个需要使用线程的程序。 我已经在Perl中找到了线程功能 ，但是我仍然感到有些困惑。 如本文标题所述，Java可能是最常使用的线程。 我并不是说这是完美的，但是我可以使用Thread类完成工作。

在Java中，我有一个名为startThreads的方法，在该方法中，我创建了线程，然后启动了它们。 启动它们之后，有一个while循环正在检查胎面是否完成。 如果所有线程都已正确退出，则while循环将退出，但如果不是，则while循环将监视哪些线程已超时，然后安全地中断这些线程并将其关闭标志设置为true。

问题：在Perl中，我想使用与上面所述相同的算法，但是Perl当然有所不同，并且我是Perl的新手。 是否有可能在其他线程正在运行时运行while循环？ 怎么做？

Answer 1

您可以使用threads->list()在Perl中实现while循环，但首先应考虑其他方法。

不用等待线程，而是等待结果呢？

此处的基本思想是，您具有从队列中获取工作单元并将工作单元的结果（对象或异常）放入输出队列的代码。

启动几个线程，等待输入队列中的工作单元。 当出现时，运行工作单元并将结果放入输出队列。

在您的主代码中，您只需要将所有N个工作单元放入输入队列（确保足够大）。 之后，您可以等待输出队列中的N个输出，并且不必担心线程，联接和异常。

[编辑]您的所有问题都应在http://perldoc.perl.org/perlthrtut.html中回答

Answer 2

在perl中使用线程时要小心。 关于安全访问共享数据有很多细微差别。 由于大多数Perl代码不执行线程处理，因此很少有模块是线程安全的。

Answer 3

阅读了Michael Slade提供的链接后，我发现Cyber​​-Guard Enterprise是正确的。 通过分离线程，主体仍在执行工作。 我还没有测试过，但是看起来$ thr-> is_running（）可以告诉我线程是否还在运行。

这是从提供的URL中获取的，并显示了如何使用分离。 perldoc.perl.org/perlthrtut.html？

use threads;
my $thr = threads->create(\&sub1); # Spawn the thread
$thr->detach(); # Now we officially don't care any more
sleep(15); # Let thread run for awhile
sub sub1 {
$a = 0;
while (1) {
$a++;
print("\$a is $a\n");
sleep(1);
}
}