关于 Perl 和 Perl 的问题Ruby 套接字编程

Question

这里有四个代码：

代码 A：（Perl TCP 服务器）

prompt> perl -e '
use IO::Socket;

$s = IO::Socket::INET->new(LocalPort => 8080, Type => SOCK_STREAM, Reuse => 1, Listen => 10, Proto => "tcp") or die "$!";
while ($c = $s->accept) {
   print while <$c>;
}'

代码 B：（Perl TCP 客户端）

prompt> perl -e '
use IO::Socket;

$c = IO::Socket::INET->new(PeerAddr => "localhost:8080") or die "$!";
while (<>) {
   print $c $_
}'

代码 C：（Ruby TCP 服务器）

prompt> ruby -e '
require "socket"

s = TCPServer.new("localhost", 8080)
while( c = s.accept)
    while l = c.gets
       puts l
    end
end'

代码 D：（Ruby TCP 客户端）

prompt> ruby -e '
require "socket"

c = TCPSocket.new("localhost", 8080)
while l = gets
   c.puts l
end'

以下问题让我感到困惑：

1. 代码 A 和代码B可以同时运行。我认为当后一个进程启动时它应该抛出一个“地址已被使用”错误，它与前一个进程绑定到相同的 TCP 端口。

2. 两个（可能超过两个）代码 C 实例可以同时运行，而我无法运行两个代码 A 实例。

3. 当代码 A 和代码 C 同时运行时，我通过 Google Chrome 访问了“http://localhost:8008”，然后代码 C 打印了 HTTP 消息，而代码 A 没有。

4. 当我单独运行代码 C 时，代码 B 无法连接到它。

5. 当我单独运行代码 A 时，代码 D 可以连接到它。

6. 当代码A和代码C同时运行时，代码D连接到C，代码B连接A。

Answer 1

代码A和代码B可以同时运行。我认为当后一个进程启动时它应该抛出一个“地址已被使用”错误，该错误与前一个进程绑定到相同的 TCP 端口。

在这种情况下，地址不会发生冲突，只会发生端口冲突。更具体地说，如果源端口相同。目标端口通常是相同的，因为这定义了服务可能存在的位置。

例如：http 服务器通常使用源端口 80 和“随机”目标端口。 http 客户端通常使用目标端口 80，源端口“随机”。 （不是真正随机的，但这超出了问题的范围。）

当代码A和代码C同时运行时，我通过Google Chrome访问“http://localhost:8008”，然后代码C打印了HTTP消息，而代码A则没有。

这个声明特别让我相信上面的代码实际上并没有被运行。具体来说这一行：

s = TCPServer.new("localhost", 8080)

这可以解释您所描述的大多数问题。尝试将它们放入文件中并运行它们。从一次运行到下一次运行，您将减少拼写错误的可能性。

唯一剩下的未解决的问题是这个人：

可以同时运行代码 C 的两个（可能超过两个）实例，但我无法运行代码 A 的两个实例。

。尝试运行 lsof -Pni:8080 （或您环境中类似的东西），以查看正在侦听的服务在那个端口上。

Ruby 脚本似乎存在双堆栈问题。它默认为 IPv6 本地主机，然后是 IPv6 本地站点，最后是 IPv4 本地主机。看起来好像是在内部指定源地址。

Perl 脚本运行正常。它可能会使用 in6addr_any 打开一个套接字并在 v4 和 v6 上舒适地监听。

Answer 2

代码A和代码B可以同时运行。我认为当后一个进程启动时它应该抛出一个“地址已被使用”错误，该错误与前一个进程绑定到相同的 TCP 端口。

服务器绑定127.0.0.1:8080，客户端绑定127.0.0.1:<某个空闲端口> （因为您没有请求将客户端绑定到特定端口）。 127.0.0.1:8080 != 127.0.0.1:<一些空闲端口>，所以没问题。

两个（也许超过两个）代码 C 的实例可以同时运行，而我无法运行代码 A 的两个实例

。您不能运行两个以上的“C”工作实例。两个套接字不可能绑定到相同的 IP 地址和端口。这就像试图给两个人相同的邮寄地址。

当代码A和代码C同时运行时，我通过Google Chrome访问“http://localhost:8008”，然后代码C打印了HTTP消息，而代码A则没有。

当然。因为“C”设法绑定到 127.0.0.1:8080，所以“A”无法绑定并死亡。

当我单独运行代码 C 时，代码 B 无法连接到它。

我不明白为什么。你得到什么错误？

Answer 3

当我在一个文件中尝试对上面的代码进行一项修改时，

• Ruby Client <-> Ruby 服务器是 Success
• Perl 客户端 <-> Perl 服务器成功了
• Ruby 客户端<-> Perl 服务器成功
• Perl 客户端 <-> Ruby 服务器失败

我收到以下错误..

• “无法建立连接，因为目标机器主动
  拒绝了。在 pc.pl 第 4 行。”

所以我想知道发生了什么！所以我检查了另一个客户端程序，它仍然没有连接到 Ruby 客户端服务器。所以我想把重点放在 Ruby 服务器第一个

示例 Socket 上测试仪：
http://sourceforge.net/projects/sockettest/

Ruby 服务器：

s = TCPServer.new("localhost", 20000)
while( c = s.accept)
    while l = c.gets
        puts l
    end
end

Perl 客户端：(pc.pl ）

#!/usr/bin/perl
use IO::Socket::INET;
print "Client\n";
$c = IO::Socket::INET->new(PeerAddr => "localhost:20000") or die "$!";
while (<>) {
    print $c $_
}

其他代码供参考：

Perl 服务器：

#!/usr/bin/perl
use IO::Socket::INET;
print "Server\n";
$s = IO::Socket::INET->new(LocalPort => 20000, Type => SOCK_STREAM, Reuse => 1, Listen => 10, Proto => "tcp") or die "$!";
while ($c = $s->accept) {
    print while <$c>;
}

Ruby 客户端：

require "socket"

c = TCPSocket.new("localhost", 20000)
while l = gets
    c.puts l
end

FIX

我家里连接了 3 个系统，并将 localhost 替换为当前 PC 的实际 IP 解决了该问题。 （WINDOWS 中的 ipconfig 获取 IP）

Ruby 服务器：

require "socket"

s = TCPServer.new("192.168.1.3", 20000)
while( c = s.accept)
    while l = c.gets
       puts l
    end
end

Perl 客户端：

#!/usr/bin/perl
use IO::Socket::INET;

print "Client\n";
$c = IO::Socket::INET->new(PeerAddr => "192.168.1.3:20000") or die "$!";
while (<>) {
   print $c $_
}

Thx Abraham