我最近从ActivePerl v5.20.2升级到了v5.26.3。
现在LWP :: Simple :: get与某些网站存在SSL问题
例如
#!c:/Perl64/bin/Perl.exe
# test perl scripts
use LWP::Simple;
#
$url = "https://www.bbc.co.uk/sport/rugby-union";
$content = get($url);
print "get succesful - ", length($content), " bytes read\n";
$url = "https://www.theguardian.com/cartoons/archive";
$content = get($url);
print "get succesful - ", length($content), " bytes read\n";
在旧版本上工作正常,但在新版本下使用
成功-读取214904字节
在C:/Perl64/lib/IO/Socket/SSL.pm第2739行中可以免费使用错误池977970,而不是890014001a5d9a5e。
SSL.pm的第2739行是
my $certid = eval { Net::SSLeay::OCSP_cert2ids($ssl,$cert) };
所以这与证书处理有关。