Perl LWP脚本执行报501错误：https协议不支持的解决方法求助

嘿，这个问题我太熟了！你遇到的501错误本质很简单：你的Perl环境里缺少处理HTTPS协议的核心模块。

先给你捋清楚原因：你虽然安装了Bundle::LWP，但这个套件默认并没有包含LWP::Protocol::https模块。而你脚本里请求的http://www.oreilly.com/，现在会被网站自动重定向到HTTPS地址——你的LWP没法处理HTTPS请求，所以就抛出了这个错误。

下面给你几个靠谱的解决办法：

方法一：通过CPAN安装模块 #

直接在终端运行这条命令，安装HTTPS协议支持模块：

cpan LWP::Protocol::https

如果没有root权限，推荐用local::lib把模块装到用户专属目录，避免权限问题。

方法二：用系统包管理器安装（适用于Linux发行版） #

如果你用的是Debian/Ubuntu这类系统，直接装系统提供的预编译包：

sudo apt-get install liblwp-protocol-https-perl

要是红帽、CentOS系列，就用这条命令：

sudo yum install perl-LWP-Protocol-https

验证是否安装成功 #

安装完成后，你可以先跑个简单的测试命令确认：

perl -MLWP::UserAgent -le '$ua = LWP::UserAgent->new(); print $ua->get("https://www.oreilly.com/")->status_line'

如果输出200 OK，就说明HTTPS模块已经正常工作了，再运行你的脚本应该就没问题啦！

另外补充一句：你的脚本不用修改，LWP默认会自动处理HTTP到HTTPS的重定向，安装好模块后就能直接访问目标站点了。

备注：内容来源于stack exchange，提问作者user1766349