有没有办法在 Perl 中管理进程（即实际工作的线程替换）？

Question

我在 perl 中有一个多线程应用程序，我必须依赖几个非线程安全模块，因此我一直在使用带有 kill() 信号的 fork() 进程作为消息传递接口。

问题在于信号处理程序有点不稳定（至少可以这么说），并且通常会导致进程在不适当的状态下被杀死。

有一个更好的方法吗？

Answer 1

根据您的程序需要执行的具体操作，您可以考虑使用 POE，它是一个 Perl具有用户空间线程的多线程应用程序框架。 它很复杂，但优雅且功能强大，可以通过将活动限制在单个 Perl 解释器线程中来帮助您避免非线程安全模块。

有用的入门资源：

• Matt Sergeant 的编程 POE 演示文稿（从这里开始了解它是什么和做什么）
• POE 项目页面（很多说明书示例）

另外还有数百个预构建的POE 组件，您可以用来组装到应用程序中。

Answer 2

您始终可以在父级和子级之间使用管道来来回传递消息。

pipe my $reader, my $writer;
my $pid = fork();
if ( $pid == 0 ) {
    close $reader;
    ...
}
else {
    close $writer;
    my $msg_from_child = <$reader>;
    ....
}

这不是一种非常舒适的编程方式，但它不应该“不稳定”。

Answer 3

看看 forks.pm，一个“drop -使用 fork() 替换 Perl 线程”，这使得内存使用更加合理（但不要在 Win32 上使用它）。 它将允许您声明“共享”变量，然后自动在进程之间传递对此类变量所做的更改（类似于threads.pm 的工作方式）。

Answer 4

从 perl 5.8 开始，您应该查看核心线程模块。 请查看 http://metacpan.org/pod/threads

如果你想使用以下模块， 不是线程安全的，您通常可以使用 require 加载它们并在线程入口点内导入。