perl – LWP :: UserAgent和500 SSL协商失败
我正在运行一个旧的Debian服务器,每天一次通过Perl脚本获取网页.从昨天开始,脚本因“500 SSL协商失败”错误而失败.
use strict; use LWP::UserAgent; my $browserObj = LWP::UserAgent->new(); $response = $browserObj->get( "https://www.domain.tld" ); print $response->status_line . "n" if( ! $response->is_success ); 就像我说的,它是一个运行旧版本的旧服务器: > Perl:5.8.8 我制作了服务器的快照,以便我可以尝试各种解决方案,如果失败则返回快照.这正是我在每次测试后所做的,返回到原始服务器状态. 测试1: 测试2: 测试3: 还有什么我可以尝试的吗? PS:由于几个原因,我无法更新Debian本身. 解决方法
我让它为Perl工作.我怀疑,服务器上使用SSL的每个程序都需要单独修补.但这是Perl的解决方案:
1)更新OpenSSL(到版本1.0.2d) 这是使用SSL的每个程序的必要步骤!在我的Debian系统上,我使用了here发现的指令. 2)更新Net :: SSLeay 这是必要的,否则步骤4)将失败. $cpan Net::SSLeay 3)更新Getopt :: Long 同样,这一步是必要的,否则步骤4)将失败. $cpan Getopt::Long 4)更新Crypt :: SSLeay 请注意,这也将更新LWP. $cpan Crypt::SSLeay (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- mod_perl vs mod_fastcgi
- 匹配Perl正则表达式中捕获组的反向转换
- perl – 将MooseX :: Method :: Signatures导入调用者的范围
- Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元
- Groovy轻松入门——搭建Groovy开发环境
- PHP 5.3中不推荐使用指令’magic_quotes_gpc’,更多laravel
- delphi – Alphablend和TransparentBlt
- 为什么Grails要求我在控制器中使用`def`而不是`void`?
- Delphi 指针大全
- inno-setup – Inno Setup – 自动提交卸载提示