IO::Socket 获取响应时超时

Question

我正在尝试使用 IO::Socket::INET 连接到 Web 服务（是的，我知道有很多更好的模块可以执行此操作，但我没有它们并且无法添加它们，所以请不建议这样做），但我正在等待回复（我认为这就是它正在做的事情）。

这是我的代码的基本关键点（我之前使用所有正确的标头填充内容，并进行设置等）：

$httpSock->print($content);

my @lines = $httpSock->getlines();
foreach my $line ( @lines ) {
    print $line;
}

看来我的请求是立即发出的，然后它等待大约 2 分钟，然后才返回响应。如果我更改代码以使用原始套接字 recv 而不是 getlines()，唉：

$httpSock->recv($data, 1024);

我立即收到响应（尽管只有前 1024 个字符）。我在这里做错了什么吗？我使用的是 IO::Socket 的较晚版本，默认情况下应该启用 autoflush，但显式打开它似乎没有任何区别。我也可以继续从套接字读取数据，直到获得完整的响应，但这肯定比使用 getlines() 或 <$httpSock> 更混乱。

提前致谢。

Answer 1

我在使用您发布的代码片段重新创建问题时遇到问题。这是我测试的代码：

use strict;
use warnings;
use IO::Socket;

my $httpSock = new IO::Socket::INET(
    PeerAddr => 'www.google.com',
    PeerPort => '80',
    Proto    => 'tcp',
);

my $content = "HEAD / HTTP/1.0\r\nHost: www.google.com\r\n\r\n";

$httpSock->print($content);
my @lines = $httpSock->getlines();
foreach my $line (@lines) {
    print $line;
}

这是结果：

$ time ./1.pl
HTTP/1.0 200 OK
-snip-  

real    0m0.084s
user    0m0.025s
sys 0m0.007s

Answer 2

问题是 getlines() 等待连接关闭。如果您正在连接的 Web 服务没有关闭您的连接，getlines 函数将等待，认为更多数据正在传输中。当您的连接在 2 分钟左右超时后，getlines 会看到连接关闭，并将其收到的行返回给您。另一方面，Recv 会抓取当时连接上预定限制的所有内容，并将其立即返回到您提供的缓冲区，但如果当前没有数据，它将等待直到获取一些数据。我知道您认为它很混乱，但这可能适合您：

$httpSock->recv($buf, 1024);
$message = "";
while (length($buf) > 0) {
    $message .= $buf;
    $httpSock->recv($buf, 1024, MSG_DONTWAIT);
}
print $message;

如果连接为空，MSG_DONTWAIT 将导致 recv 不等待消息。您还可以将 1024 增加到某个大数字以减少循环次数，甚至可能一次获取整个消息。

这还可以让您保持套接字打开以供进一步使用，直到您自己关闭它为止。

我想知道 google 示例是否有效，因为 google.com 在响应后正在关闭连接。