LWP::UserAgent - HTTP::Request

Question

如果我这么做

#!/usr/local/bin/perl
use warnings;
use 5.014;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $res = $ua->get( 'http://www.perl.org' );

我可以像这样调用HTTP::Response方法

say $res->code;

是否有可能从HTTP::Request对象调用$res方法，或者需要显式地创建HTTP::Request对象？

my $ua = LWP::UserAgent->new();

my $method;

my $res = $ua->get( 'http://www.perl.org' );

$ua->add_handler( request_prepare => sub { my( $request, $ua, $h ) = @_; $method = $request->method; },  );

say $method; # Use of uninitialized value $method in say

Answer 1

HTTP::Request在内部由LWP::UserAgent使用，如果他们通过get或post-Methods返回它，那么已经太晚了，因为请求已经完成了。但是他们显然预见到了访问请求对象的需要，因此他们实现了回调，以便在发送请求之前修改请求：

$ua->add_handler(request_prepare => sub {
    my($request, $ua, $h) = @_;

    # $request is a HTPP::Request
    $request->header("X-Reason" => "just checkin");
});

因此，如果您需要访问请求对象，而不需要创建和设置请求对象，那么回调就是一种方法。

Answer 2

要获取为您创建的请求对象，请执行以下操作：

my $response = $ua->get('http://www.example.com/');
my $request = ($response->redirects, $response)[0]->request;

只需自己创建一个请求对象可能更容易一些。

use HTTP::Request::Common qw( GET );
my $request = GET('http://www.example.com/');
my $response = $ua->request($request);

Answer 3

您想要调用哪些HTTP::Request方法？在哪个请求对象上？$ua最后提出的请求

据我所知，LWP::get没有保存在任何地方创建/发送的最后一个请求。