如何获取完整的 HTTP 请求（非响应）标头

我有一个像这样的简单代码：

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;

my $cookies = HTTP::Cookies->new();
my $browser = LWP::UserAgent->new();
   $browser->agent(' ... ');    
   $browser->cookie_jar($cookies);   
my $request = HTTP::Request->new();     
my $response;                           
my $url;                                
my $referer;                                        

$referer = '';
$url = 'https:// ...'; # url #1
$request->url($url);
$request->method('GET');
$request->header('Referer' => $referer);    
$response = $browser->request($request);    
print $response->request()->uri()     . "\n\n" .
      $response->headers()->as_string . "\n\n" .
      $response->content              . "\n\n";

$referer = $response->request()->uri();
$url = 'https:// ... '; # url #2
$request->url($url);
$request->method('GET');
$request->header('Referer' => $referer);
$response = $browser->request($request);
print $response->request()->uri()     . "\n\n" .
      $response->headers()->as_string . "\n\n" .
      $response->content              . "\n\n";

现在，我还想查看完整的 HTTP请求标头，而不仅仅是响应标头。

我该怎么做？必须在此代码中添加什么？

卡尔叔叔

我认为您几乎可以在现有代码中使用它。您正在使用 $response->request()->uri() 访问请求 URI。->request() 是您的 HTTP::Request 对象。我相信你可以使用 $response->request->headers->as_string 来得到你想要的。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。