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;

是否有可能从$res对象调用HTTP::Request方法或者需要显式创建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

获取为您创建的请求对象：

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 2

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 3

您要调用哪种HTTP::Request方法？ 以及哪个请求对象？ $ua的最后一个请求？

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