perl - 检查通过LWP请求返回的SSL证书

我正在Perl中使用LWP请求网页，并且希望能够访问Web服务器提供的SSL证书(我正在寻找证书中的到期日期，等等)。我想要的信息不在Crypt::SSLeay添加到请求的三个 header 中。有什么我可以忽略的方法(理想情况下)可以获取SSL证书的对象引用吗？我已经扫描了一些perl文档和Google，但是这已经是一个漫长的一周，而且我可能只是在读错东西。

如果可以避免的话，我不想通过建立单独的原始SSL连接直接获取证书-因为有一个经过身份验证的Web代理，而LWP却使这个问题对我透明消失了。 :)当我需要的数据已经传输到我的机器/somewhere/...时，建立两个连接是很愚蠢的

最佳答案

LWP提供的回调都不提供对套接字的(有意)访问，但是似乎存在一种潜在的解决方法-如果为LWP提供keep_alive和conn_cache选项，则在请求结束时LWP将在以连接套接字为参数的->deposit对象。您可以编写一个虚拟的conn缓存对象，也可以仅“创造性地”使用LWP提供的conn_cache。

无论如何，如果您使用该反手方法来持有套接字，则它将是LWP::ConnCache的子类(假设您使用的是ssleay)，因此您可以仅在其上调用Net::SSL。

关于perl - 检查通过LWP请求返回的SSL证书，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/3072876/