如何运行同一脚本的多个 perl 实例？

Question

所以我尝试多次运行 1 个 perl 脚本，但我只能在第一次运行时收到所有其他实例的权限被拒绝消息。

ERROR: (HTTP::Daemon: Permission denied) at script.pl line 50.

我该如何解决这个问题？

Answer 1

从外观上看，您的脚本创建了一个侦听特定端口的 Web 服务器。一次只能将一个套接字绑定到一个端口，因此创建第二个套接字的尝试失败。

解决方案可能是避免绑定到特定端口。

1. 从传递给HTTP::Daemon->new 的参数中删除LocalPort => ...。
2. HTTP::Daemon 对象创建后，使用$d->peerport()获取端口。
3. 将端口与将连接到 HTTP 服务器的客户端通信。
4. 让客户端连接到通信端口，而不是当前连接的端口。