在Perl中处理多个传出连接的最佳方法是什么？

Question

我需要连接三台TCP服务器，每台服务器都有不同的协议，但都处于非阻塞模式。现在，我的计划基本上是为每个IO::Socket打开一个新IO::Select并将其添加到can_read()，然后循环遍历{{1}}。这个想法是基于服务器通常用Perl编写的，但似乎它可以为客户服务。

我想知道这是否是最好的方法，而且我还想知道如何探测每个连接以断开连接，并在不中断其他套接字的情况下重新连接它。任何代码示例都将是一个很好的帮助，或者至少在正确的方向上有一些关于如何做到这一点的点。

Answer 1

您可能想要使用AnyEvent或POE。只需查看文档，它就有一些很好的例子可以帮助您了解自己的方法。