Perl 和 LWP 未进行身份验证

Question

我正在尝试让 LWP 请求对 https 服务器起作用。我已获得用户和通行证，建议使用基本身份验证。我尝试了各种代码块，但似乎都遇到了身份验证错误。我当前的代码是...

use warnings;
use strict;
use Data::Dumper;
use LWP;

my $ua = LWP::UserAgent->new( keep_alive => 1 );
##also tried by $ua->credentials('domain','','user','pass');
##not sure if I need 'realm' or how I get it, as no popup on screen.
my $request = HTTP::Request->new( GET => "https://my.url.com/somepath/" );
$request->authorization_basic('myuser','mypass');
$request->header( 'Cache-Control' => 'no-cache' );

print $response->content;
print Dumper $response;

服务器出现安全错误，但如果我查看 $response 的转储，我会看到以下内容...

'_rc' => '401',
'_headers' => bless( {   .... lots of stuff
        'title' => 'Security Exception',
        'client-warning' => 'Missing Authenticate header',
        'client-ssl-socket-class' => 'IO::Socket::SSL',
         ...
        'expires' => '-1'
                                  }, 'HTTP::Headers' ),

'_msg' => 'Unauthorized',
'_request' => bless( {
     '_content' => '',
     '_uri' => bless( do{\(my $o = 'https:theurlabove')}, 'URI::https' ),
     '_method' => 'GET',
     '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
     '_headers' => bless( {
                           'user-agent' => 'libwww-perl/6.04',
                           'cache-control' => 'no-cache',
                           'authorization' => 'Basic dzx..........'
                         }, 'HTTP::Headers' ),

我试图了解发生了什么，它看起来像在原始请求中，其中有 header ，但在响应中，它说我“缺少身份验证 header ”。

代码是否有问题，或者我对请求/响应有什么误解？

谢谢。

Answer 1

“缺少身份验证 header ”消息来自 LWP 本身。这意味着它无法在目标响应中找到身份验证 header 。如果您有类似情况，这可能意味着您的代理设置配置错误。