Perl HTTPS 443错误

Question

我的Perl脚本在PC机上工作。但是，当我在Windows server 2003服务器上运行它时，它给了我如下信息：

https 443错误(500无法连接到“网站”：443)。

我的脚本使用LWP:UserAgent从HTTPS地址下载文件。到目前为止，我所做的是：

1. 我测试了连接该服务器上其他HTTPS地址的情况，它们都正常工作。
2. 我试着设置$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0，但它不起作用。
3. 我尝试了Mozilla::CA和CACertOrg::CA，但是它不起作用；我也尝试设置$ENV{HTTPS_CA_FILE}= "path to the downloaded CA file"，但它不起作用。

下面是我的部分原稿：

sub retrieveHTTPS {
    my ($url, $encrypted_file) = @_;
    use LWP::UserAgent;
    my $browser = LWP::UserAgent->new;
    my $response =
    $browser->get($url, ':content_file' => $encrypted_file);
    die "Error at $url\n ", $response->status_line, "\n Aborting"
            unless $response->is_success;}

我怎样才能解决这个问题？

Answer 1

来自LWP::UserAgent文档：

libwww-perl核心不再绑定用于SSL的协议插件。您需要单独安装LWP::Protocol::https，以支持处理https-URL。

很有可能在Windows 2003服务器上没有安装支持HTTPS所需的模块。

尝试安装LWP::Protocol::https。

将use LWP::Protocol::https;添加到脚本中以使此依赖显式化也是一个好主意。