perl - Perl LWP Curl 错误：“SSL 对等证书不正确”

Question

这是我的代码：

my $lwpcurl = LWP::Curl->new(CURLOPT_SSL_VERIFYHOST => 0,CURLOPT_SSL_VERIFYPEER=>0);
my $content;
$content = $lwpcurl->get($url);

我收到此错误：

`SSL peer certificate was not ok`

Answer 1

LWP::Curl的构造函数不接受CURLOPT_SSL_VERIFYHOST/CURLOPT_SSL_VERIFYPEER参数！

使用LWP::Protocol::Net::Curl代替：

use LWP::Protocol::Net::Curl ssl_verifyhost => 0, ssl_verifypeer => 0;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $content = $ua->get($url);

注意 LWP::Protocol::Net::Curl 改变了默认的 LWP::UserAgent 行为，所以你仍然使用$ua = LWP::UserAgent->new, 而它在libcurl内部使用。