ios - IO::Socket::INET 返回一个空套接字

Question

这是我的代码:

 my $server_socket = new IO::Socket::INET
            (
                LocalPort => 8378,
                Type      => SOCK_STREAM,
                Listen    => $SOMAXCONN,
                Proto     => 'tcp',
                Reuse     => 1
            ) || die "$!\n";

        $serverName   = $ENV{COMPUTERNAME};
        $socketPortNr = 8378;
        $clientSocket = new IO::Socket::INET (PeerAddr => $serverName,
                                                  PeerPort => $socketPortNr,
                                                  Proto    => 'tcp');

但是 $clientSocket 是空的。

$clientSocket 为空的原因可能是什么？

Answer 1

没有必要推测。如其文档中的示例所示，IO::Socket::INET->new 在失败时在 $@ 中放置一条错误消息。

my $client_socket = new IO::Socket::INET->new(
   ...
)
   or die("Can't create client socket: $@\n");

($! 也已设置，尽管它提供的信息并不总是那么精确。)