Perl的LWP卷曲错误： 'SSL证书同行是不是OK'

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 ::协议::网::卷曲改变默认的LWP :: UserAgent的行为，所以你还是用$ua = LWP::UserAgent->new，虽然它使用libcurl内部。