如何解决有关Perl和Ruby套接字编程的问题
| 这是四个代码： 代码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>;
}\'
prompt> perl -e \'
use IO::Socket;
$c = IO::Socket::INET->new(PeerAddr => \"localhost:8080\") or die \"$!\";
while (<>) {
print $c $_
}\'
prompt> ruby -e \'
require \"socket\"
s = TCPServer.new(\"localhost\",8080)
while( c = s.accept)
while l = c.gets
puts l
end
end\'
prompt> ruby -e \'
require \"socket\"
c = TCPSocket.new(\"localhost\",8080)
while l = gets
c.puts l
end\'
解决方法
代码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。
, 代码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无法连接到它。
我不明白为什么。你得到什么错误？
,当我在上述代码中进行了一次修改的文件中尝试使用它时
Ruby Client <-> Ruby服务器成功
Perl客户端<-> Perl服务器成功
Ruby Client <-> Perl Server成功
Perl客户端<-> Ruby服务器失败
我收到以下错误。
\“无法建立连接，因为目标机器处于活动状态
拒绝了。在pc.pl第4行。\“
所以我想知道发生了什么！！！因此，我检查了另一个客户端程序，但该程序仍未连接到Ruby客户端服务器。所以我想先把重点放在ruby服务器上
样品插座测试仪：
http://sourceforge.net/projects/sockettest/
Ruby服务器：
s = TCPServer.new(\"localhost\",20000)
while( c = s.accept)
while l = c.gets
puts l
end
end
#!/usr/bin/perl
use IO::Socket::INET;
print \"Client\\n\";
$c = IO::Socket::INET->new(PeerAddr => \"localhost:20000\") or die \"$!\";
while (<>) {
print $c $_
}
#!/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>;
}
require \"socket\"
c = TCPSocket.new(\"localhost\",20000)
while l = gets
c.puts l
end
require \"socket\"
s = TCPServer.new(\"192.168.1.3\",20000)
while( c = s.accept)
while l = c.gets
puts l
end
end
#!/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 $_
}
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。