perl - 如何在 Perl 中的线程之间共享文件句柄？

Question

我有两个线程，

一个使用 HTTP::Daemon 运行循环，另一个运行基于 IO::Select 的套接字服务器。

现在，当用户连接到 HTTP 服务时，它需要写入套接字服务器的客户端。

但是，在 Perl 中，我不能与 threads::shared 共享文件句柄。

有什么建议吗？

Answer 1

文件描述符 对进程是全局的，您可以使用fileno 取消引用文件句柄到它的描述符。然后只需在线程之间传递简单的标量值并按数字重新打开即可。

在您的 HTTP::Daemon 线程中:

my $fileno = fileno $fh; 

通过您的程序使用的任何方式(例如共享数组)将数字传递给 IO::Select 线程。并在 IO::Select 线程中按编号重新打开句柄:

open my $fh, "&=$fileno";