Perl 中使用 IO::Socket 的用户输入

Question

我正在尝试制作一个 perl 程序，它允许用户输入主机和外部主机的端口号以使用 IO::Socket 连接。它允许我运行程序并输入主机和端口，但它永远不会连接并显示“无法连接到位于 c:\users\USER\Documents\code\perl\sql.pl 第 18 行、第 2 行的 [主机] ”。下面显示的这段代码我做错了什么？另外，我如何在主机上进行输入验证（可以是主机名或 IP 地址）？非常感谢！下面的代码

use IO::Socket
print "Host to connect to: ";
chomp ($host = <STDIN>);
print "Port to connect with: ";
chomp ($port = <STDIN>);
while(($port > 65535) || ($port <= 0)){
    print "Port to connect with [Port > 0 < 65535] : ";
    chomp ($port = <STDIN>);
    }
print "\nConnecting to host $host on port $port\n";
$socket = new IO::Socket::INET (
                                  LocalHost => '$host',
                                  LocalPort => '$port',
                                  Proto => 'tcp',
                                  Listen => 5,
                                  Reuse => 1
                               );
die "Could not connect to  $host";

Answer 1

您对 IO::Socket::INET 的设置正在创建一个侦听端口（也称为服务器）。要创建客户端，请尝试：

$socket = IO::Socket::INET->new(
              PeerAddr => $host,
              PeerPort => $port,
              Proto => 'tcp'
          );

以下是 IO::Socket:: 的完整文档INET。