使用 LWP perl 授权网页时出现问题

Question

我正在尝试使用 LWP perl 登录 URL

我的 URL 打开时弹出询问用户名和密码的窗口。当我尝试手动登录时，它成功但通过 LWP，我收到 401 错误

my ($url) = @_;
my $ua = LWP::UserAgent->new( keep_alive => 1, agent => "Mozilla/4.76 " );
push @{ $ua->requests_redirectable }, 'POST';
$ua->cookie_jar( HTTP::Cookies->new( file => "$ENV{HOME}/.cookies.txt" ) );

# timeout:
$ua->timeout(30);
print "\nMaking request to $url\n";

my $request = HTTP::Request->new('GET');
$request->url($url);
my $response = $ua->request($request);
    my $user = "weblogic";
    my $pwd  = "Fusionapps1";
    $ua->credentials( $url, "default", $user, $pwd );
    #$request->authorization_basic( $user, $pwd );
    my $response = $ua->request($request);
    if ( $response->is_success ) {
        $isLoginSuccessful = 1;
    }

} 

我也试过下面的东西

$request->authorization_basic( $user, $pwd );

错误：错误 401--未经授权

请帮忙！！ 任何帮助将不胜感激

Answer 1

要与网站交互并填写登录等表单，我建议您使用WWW::Mechanize。

注意，如果网站包含 JavaScript，则必须使用 WWW::Mechanize::Firefox 之类的内容。