Perl套接字连接

Question

是否可以创建到终端设备上的开放端口的套接字连接.

如果连接丢失打印的东西？

我看过一些例子,但它们需要服务器类型脚本和客户端,只需要查找客户端.

谢谢

Answer 1

Perl内置了套接字.您只需加载标准Socket.pm模块即可获得所需的常量.

在perlipc手册页告诉你所有关于这一点.然而,有许多更高级别的模块比内置模块更容易实现.有些甚至是标准的.

这是一个CLI示例:

% perl -MIO::Socket::INET -E '$him = new IO::Socket::INET "localhost:daytime" // die; print while <$him>'
Tue Jun 28 08:17:13 2011