无法通过perl套接字发送流水线的http请求

时间:2014-09-02 11:18:34

标签: perl sockets http pipelining

我有以下perl脚本通过sinlge tcp连接发送流水线的http请求。第一个请求通过,我能够得到响应。第二个请求也会被发送,但是没有收到此请求的响应。我能够在跟踪中看到服务器上收到的两个请求。

use IO::Socket::INET;
$| = 1;

$socket = new IO::Socket::INET (
   PeerHost => '10.102.218.56',
   PeerPort => '80',
   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 = "GET /test/file5.html HTTP/1.1\r\nHost:10.102.218.50\r\nAccept: */*\r\n\r\n\r\n";
my $size = $socket->send($req);
print "1. sent data of length $size\n";

$socket->recv($response, 1024);
print "received response: $response\n";

my $req = "GET /test/file5.html HTTP/1.1\r\nHost:10.102.218.50\r\nAccept: */*\r\n\r\n\r\n";
my $size = $socket->send($req);
print "1. sent data of length $size\n";

$socket->recv($response, 1024);
print "received response: $response\n";
sleep 1;
$socket->close();

在Apache access_log上,我只看到收到的HTTP请求的一个实例:

10.102.218.50 - - [02/Sep/2014:23:04:50 +0530] "GET /test/file5.html HTTP/1.1" 200 6 "-" "-"

我猜我错过了一些表明服务器HTTP请求结束的字符。但我无法找到它们是什么。

我在这里做错了什么?

编辑:在第一个HTTP请求得到应答后,Apache服务器是否可以关闭连接。有这个设置吗?

Edit2:在我的apache服务器上将KeepAlive设置为Off。将其设置为ON可以解决问题。

1 个答案:

答案 0 :(得分:0)

发现问题。 KeepAlive在我的Apache服务器上设置为关闭。将KeepAlive设置为On可以解决问题。