Question

我正在尝试访问HTTPS网站，但它给了我错误。我试过这个脚本：

脚本1：

use strict;
use warnings;
use LWP::UserAgent;

my $B = new LWP::UserAgent (agent => 'Mozilla/5.0', cookie_jar =>{});

my $GET = $B->get('https://moz.com')->content;
print $GET;

脚本2：

use strict;
use warnings;
use LWP::UserAgent;
use Mozilla::CA;

my $B = new LWP::UserAgent (agent => 'Mozilla/5.0', cookie_jar =>{});
$B->ssl_opts( SSL_ca_file => Mozilla::CA::SSL_ca_file() );
$B->ssl_opts( verify_hostname => 1 );

my $GET = $B->get('https://moz.com')->content;
print $GET;

我在两个方面都遇到了这个错误：

Can't connect to moz.com:443

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown error error:00000000:lib(0):func(0):reason(0) at C:/Perl/site/lib/LWP/Protocol/http.pm line 47.

我在 Windows 7旗舰版上使用 ActivePerl 5.16.1 Build 1601 。

知道如何使用Perl访问HTTPS网站吗？

Answer 1

如果您没有安装 LWP::Protocol::https 模块，https 调用将失败。

Answer 2

安装严重的模块？

你的代码（两个脚本）对我来说就像一个魅力。所以它与你自己的设置有关。

我首先尝试重新安装模块，然后检查是否允许从运行脚本的机器查询https。

Perl - 如何申请HTTPS网站

2 个答案: