5

我正在尝试使用 Perl 请求具有 HTTPS 身份验证的 html 文档。我过去没有遇到过非 HTTPS 代码的问题。我目前正在使用 LWP::UserAgent：

#! /usr/bin/perl
use LWP;
use HTTP::Request::Common;

my $browser = LWP::UserAgent->new;
my $baseurl = "https://xyz.url.com/directory";

my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->cookie_jar({});
$ua->credentials('xyz.url.com:80', '', 'login', 'password');

my $response = $ua->get($baseurl);
print  $response->content();

打印的响应本质上是“401 Unauthorized”页面。我可以通过浏览器登录。浏览器使用一个弹出窗口，显示“需要身份验证——服务器 xyz.url.com:80 需要用户名和密码。服务器说： Blah Blah' 我已经阅读了很多帖子，指示安装Crypt::SSLeay和LWP::Protocol::https. 这些已安装。我难住了。

我还下载了一个名为 Charles 的程序，以查看请求/响应中是否有任何值得注意的地方，但我不确定该去哪里找。我尝试为领域添加“Blah Blah”，但这并不成功。可以使用 Charles 识别领域吗？

4

2 回答 2

1

文档说凭据的第一个参数是<host>:<port>——也就是说，端口号不是可选的。试试"xyz.url.com:443"。此外，除非服务器正在发送，否则一个领域''是无效的；我相信，您实际上想"Blah Blah"用于领域。

于 2014-01-03T00:50:53.857 回答
0

可能是因为你没有设置合适的代理。尝试这个：

#! /usr/bin/perl
use LWP;
use HTTP::Request::Common;

my $baseurl = "https://xyz.url.com/directory";

my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->agent('Mozilla/5.0');
$ua->cookie_jar({});
$ua->credentials('xyz.url.com', '', 'login', 'password');

my $response = $ua->get($baseurl);
print  $response->content();

此外，我删除了代码中的变量$browser，因为您似乎没有将它用于任何事情。

于 2014-01-03T00:47:15.360 回答