在 Perl 中通过套接字发送多个有效负载

Question

编辑：问题出在 IIS 上，而不是我正在使用的 Perl 代码上。其他人在这里谈论同样的问题： https://stackoverflow.com/a/491445/1179075

很长时间读者在这里，第一次发帖。

因此，我正在 Perl 中处理一些现有代码，这些代码执行以下操作：

1. 创建套接字
2. 发送一些数据
3. 关闭套接字
4. 循环回到1，直到发送完所有数据

为了避免一直创建和关闭套接字的开销，我决定这样做：

1. 创建套接字
2. 发送一些数据
3. 循环回到2，直到所有数据发送完毕
4. 关闭套接字

事实是，仅发送第一个有效负载 - 所有后续有效负载都将被忽略。我正在将此数据发送到 .NET Web 服务，但 IIS 根本不接收该数据。不知何故，套接字被关闭，我不知道为什么。

这是我用来测试新更改的脚本：

use IO::Socket;
my $sock = new IO::Socket::INET(PeerAddr => $hostname, PeerPort => 80, Proto => "tcp", Timeout => "1000") || die "Failure: $! ";
while(1){
    my $sent = $sock->send($basic_http_ping_message);
    print "$sent\n";
    sleep(1);
}
close($sock);

所以这不起作用 - IIS 只接收第一个 ping。但是，如果我将 $sock 的分配移动并关闭到循环中，则 IIS 会正确接收每个 ping。

我是否只是在这里错误地使用了套接字，或者 IIS 中是否有一些我需要更改的神秘设置？

谢谢！

Answer 1

我认为你的问题是缓冲。关闭套接字上的缓冲，或在每次写入后刷新它（关闭套接字具有刷新它的副作用）。

Answer 2

你得到什么输出？ send() 之后有一个打印，如果 send() 失败，它将返回 undef。您可以打印出如下错误：

     my $sent = $sock->send($msg);
     die "Failed send: $!\n" unless defined $sent;
     print "Sent $sent bytes\n";

我自己的猜测是您要连接的服务正在关闭连接，这就是为什么只有一个连接能够通过，也是为什么每次创建一个新连接都会起作用。