主页 / computer / 问题 / 1781162
Accepted
user1766349
Asked: 2023-04-27 21:21:13 +0800 CST

Perl LWP：运行脚本返回错误

  • 772

我已经安装了Bundle::LWP，几分钟后我得到了这个

$ perl -MLWP -le "print(LWP->VERSION)"
6.68

听起来不错。但是，运行此脚本

#!/usr/bin/perl


# Example code from Chapter 1 of /Perl and LWP/ by Sean M. Burke

# http://www.oreilly.com/catalog/perllwp/

# [email protected]


require 5;

use strict;

use warnings;


use LWP;


my $browser = LWP::UserAgent->new();

my $response = $browser->get("http://www.oreilly.com/");

die "Couldn't access it: ", $response->status_line

 unless $response->is_success;

print $response->header("Server"), "\n";

__END__

给出这个错误：

$ perl a3.pl
Couldn't access it: 501 Protocol scheme 'https' is not supported (LWP::Protocol::https not installed) at a3.pl line 25.

我该如何解决？

https

1 个回答

  1. Best Answer

    您需要安装LWP::Protocol::https Perl 的模块：

    cpan LWP::Protocol::https

    或在 Debian 和衍生产品上使用包管理器：

    apt install liblwp-protocol-https-perl

    https这是因为 O'Reilly 现在默认使用重定向来提供页面，请参见curl -v以下内容：

    $ curl -v "http://www.oreilly.com/"
*   Trying 104.85.21.198:80...
* Connected to www.oreilly.com (104.85.21.198) port 80 (#0)
> GET / HTTP/1.1
> Host: www.oreilly.com
> User-Agent: curl/7.81.0
> Accept: */*
> 
* Mark bundle as not supporting multiuse
< HTTP/1.1 301 Moved Permanently
< Server: AkamaiGHost
< Content-Length: 0
< Location: https://www.oreilly.com/
    • 1

相关问题