0

要从某个网站获得响应，我必须给出一个确切的请求字符串 HTTP/1.1。我尝试了那个telnet，它给了我想要的响应（重定向，但我需要它）。

但是，当我尝试向 提供相同的请求字符串时HTTP::Request->parse()，我只会收到消息400 URL must be absolute。

我不确定是网站还是LWP给了我，因为正如我所说，响应与telnet.

这是代码：

my $req = "GET / HTTP/1.1\n".
  "Host: www.example-site.de\n".
  "User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1\n".
  "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\n".
  "Accept-Language: en-us,en;q=0.5\n".
  "Accept-Encoding: gzip, deflate\n".
  "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n".
  "Keep-Alive: 115\n".
  "Connection: keep-alive\n";

# Gives correct request string
print HTTP::Request->parse($req)->as_string;

my $ua = LWP::UserAgent->new( cookie_jar => {}, agent => '' );
my $response = $ua->request(HTTP::Request->parse($req));

# 400 error
print $response->as_string,"\n";

任何人都可以在这里帮助我吗？

4

3 回答 3

1

如果请求中没有指定模式，LWP::UserAgent会因您收到的错误而死。它可能需要它才能正确使用它。

因此，要使其正常工作，您需要为您的请求指定完整的 url：

my $req_str = "GET http://www.example.de/\n".
  "User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1\n".
  "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\n".
  "Accept-Language: en-us,en;q=0.5\n".
  "Accept-Encoding: gzip, deflate\n".
  "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n".
  "Keep-Alive: 115\n".
  "Connection: keep-alive\n";
于 2011-05-02T14:48:16.710 回答
0

在我看来，解析请求不是 100% 往返安全，这意味着您无法将响应反馈到请求中。

乍一看像是一个 bug，但是这个模块已经出现了这么久……另一方面，我什至不知道你可以使用这个模块来解析一个请求，所以它可能没有经过很好的测试。

下面的测试用例应该指出问题所在，即 URL 没有正确组装以提供给$req->request方法。

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Test::More;

my $host = 'www.example.com';
my $url = '/bla.html';

my $req = <<"EOS";
GET $url HTTP/1.1
Host: $host
EOS

# (1) parse the request
my $reqo = HTTP::Request->parse($req);
isa_ok $reqo, 'HTTP::Request';
diag explain $reqo;
diag $reqo->as_string;

# (2) construct the request
my $reqo2 = HTTP::Request->new( GET => "http://$host$url" );
isa_ok $reqo2, 'HTTP::Request';
diag explain $reqo2;
diag $reqo2->as_string;

is $reqo->uri, $reqo2->uri, 'both URLs are identical';

my $ua = LWP::UserAgent->new( cookie_jar => {}, agent => '' );
for ( $reqo, $reqo2 ) {
    my $response = $ua->request( $_ );
    diag $response->as_string,"\n";
}

done_testing;
于 2011-05-02T14:40:32.803 回答
0

好的，我使用 Sockets 做到了。毕竟，我有 HTTP 请求并且想要简单的响应。这里有感兴趣的人的代码：

use IO::Sockets;

my $sock = IO::Socket::INET->new(
    PeerAddr => 'www.example-site.de',
    PeerPort => 80, 
    Proto => 'Tcp',
);
die "Could not create socket: $!\n" unless $sock;

print $sock, $req;

while(<$sock>) {
    # Look for stuff I need
}

close $sock;

记住离开 很重要while，因为 HTTP 响应不会以EOF.

于 2011-05-02T23:36:37.397 回答