perl - 尝试在 Windows 上使用 IO::Socket 的新手

Question

我是 IO::SOCKET 的新手，也是网络编程的新手。我已经阅读了一些关于相同的在线教程。我在 Windows 上运行 Perl :( 别无选择。我的目标是通过本地机器上的套接字连接 2 个进程。一个进程是 Perl 脚本，它通过 GPIB 命令控制设备。另一个进程是一个带有套接字连接的 .exe 文件(类似于带有 Socket 连接的服务器程序)。

这是我打算做的。在我的 Perl 脚本中创建一个客户端套接字并将其连接到 .exe 套接字(通过端口)。 fork 用于读/写操作的客户端程序。问题是我不知道从哪里开始编码。我想我还需要一个主要的 Perl 脚本，并制作另一个通过 GPIB 控制设备的 Perl 脚本作为 Perl 模块。

如果您能就此想法提供一些反馈，并提供一些有关套接字连接的编程示例，我将不胜感激。

Answer 1

运行不祥的服务器可执行文件。它绑定(bind)到一个端口并开始监听。要通过套接字进行有意义的数据交换，您需要了解三件事:

1. 主机名
2. 端口号
3. 协议(protocol)，即当你与服务器交谈时要说什么，以及如何解释它的回答

---

use IO::Socket::IP qw(SOCK_STREAM);
my $socket = IO::Socket::IP->new(
    PeerHost => $host_name,
    PeerPort => $port_number,
    Type     => SOCK_STREAM,    # Transmission Control Protocol
) or die "Cannot construct socket - $@";
$socket->say('Hello, server! How are you doing?');
say for $socket->getlines;

有关可用方法的相关文档在 IO::Socket::IP 中, IO::Socket和 IO::Handle .