如何使用Net :: Server在Perl中编写简单的聊天服务器？

Question

我想编写一个Net::Server聊天服务器，可能使用PreFork，并将进程绑定到活动客户端。如何通过适当的过滤在客户端之间进行“交谈”？

Answer 1

您可以先查看chat example bundled with Net::Server。