IO::SOCKET::INET 上的端口跳跃答案

【问题标题】：Port hopping on IO::SOCKET::INETIO::SOCKET::INET 上的端口跳跃
【发布时间】：2015-01-27 15:14:59
【问题描述】：

我试图更好地了解 Perl，但偶然发现了套接字。我试图理解我在xmodulo 上找到的“简单”示例。我期待像在示例中那样，端口将是 7777。但似乎用于此套接字通信的端口高于 35000，并且在每次调用客户端脚本时，端口都会增加 +1。为什么端口与 7777 不同，为什么每次调用都会递增？

服务器示例如下所示：

use IO::Socket::INET;     
# auto-flush on socket
$| = 1;     
# creating a listening socket
my $socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => '7777',
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
);
die "cannot create socket $!\n" unless $socket;
print "server waiting for client connection on port 7777\n";

while(1)
{
    # waiting for a new client connection
    my $client_socket = $socket->accept();

    # get information about a newly connected client
    my $client_address = $client_socket->peerhost();
    my $client_port = $client_socket->peerport();
    print "connection from $client_address:$client_port\n";

    # read up to 1024 characters from the connected client
    my $data = "";
    $client_socket->recv($data, 1024);
    print "received data: $data\n";

    # write response data to the connected client
    $data = "ok";
    $client_socket->send($data);

    # notify client that response has been sent
    shutdown($client_socket, 1);
}

$socket->close();

客户端示例是：

use IO::Socket::INET;     
# auto-flush on socket
$| = 1;

# create a connecting socket
my $socket = new IO::Socket::INET (
    PeerHost => '192.168.1.10',
    PeerPort => '7777',
    Proto => 'tcp',
);
die "cannot connect to the server $!\n" unless $socket;
print "connected to the server\n";

# data to send to a server
my $req = 'hello world';
my $size = $socket->send($req);
print "sent data of length $size\n";

# notify server that request has been sent
shutdown($socket, 1);

# receive a response of up to 1024 characters from server
my $response = "";
$socket->recv($response, 1024);
print "received response: $response\n";

$socket->close();

【问题讨论】：

监听端口为7777，否则客户端无法连接。连接另一端的端口号将是任意选择的临时端口。

标签： perl sockets tcp network-programming port

【解决方案1】：

连接不是由

定义的

本地地址
对等地址
端口

它是由

定义的

本地地址
本地端口
对等地址
对等端口

例如，

>netstat /a

Active Connections

  Proto  Local Address          Foreign Address        State
  ...
  TCP    10.0.0.2:34208         stackoverflow:http     ESTABLISHED
  TCP    10.0.0.2:34212         stackoverflow:http     ESTABLISHED
  TCP    10.0.0.2:34213         stackoverflow:http     ESTABLISHED
  TCP    10.0.0.2:34224         stackoverflow:http     ESTABLISHED
  TCP    10.0.0.2:34226         stackoverflow:http     ESTABLISHED
  TCP    10.0.0.2:34227         stackoverflow:http     ESTABLISHED
  ...

您没有为客户端指定本地端口，因此系统选择了一个可用端口。这是正确的做法。没有理由将客户端限制在一个端口上。它甚至会导致问题。

例如，假设您的网络浏览器尝试将其套接字bind 连接到端口 80（网络服务器 listen 所在的端口）。您的网络浏览器一次只能处理一个请求。那会很糟糕。您希望能够创建到同一个服务的多个连接。这允许您同时请求两个不同的图像，这允许您同时在两个不同的选项卡中加载两个页面，等等。在上面的示例中，我的机器有六个连接到 stackoverflow.com 的端口 80，但如果 Web 浏览器已将套接字绑定到端口 80，这将是不可能的。

【讨论】：