我正在将应用程序从
PHP / cURL移植到Perl和LWP :: UserAgent.我需要向Web服务器发出POST请求并提供客户端证书和密钥文件.我试图复制的PHP代码是这样的：
curl_setopt($ch,CURLOPT_SSL_VERIFYPEER,0); curl_setopt($ch,CURLOPT_SSLCERT,"/path/to/certificate.pem"); curl_setopt($ch,CURLOPT_SSLKEY,"/path/to/private.key"); curl_setopt($ch,CURLOPT_SSLKEYPASSWD,"secretpassword");
这是我的Perl代码：
my $ua = LWP::UserAgent->new();
$ua->ssl_opts(
SSL_verify_mode => 0,SSL_cert_file => '/path/to/certificate.pem',SSL_key_file => "/path/to/private.key",SSL_passwd_cb => sub { return "secretpassword"; }
);
SSL读取错误错误：14094410：SSL例程：SSL3_READ_BYTES：sslv3警报握手失败
我无法弄清楚我错过了什么.
解决方法
上面emazep的答案解决了我的问题.我正在使用来自UPS的示例Perl代码通过XML连接到他们的Rate服务.从我的测试中,只要你没有可以直接控制的参数调用LWP :: UserAgent,这将会有效.如果你正在使用其他模块为你调用LWP,它会很方便.只需使用Net :: SSL(除了已经使用LWP的任何软件包之外)并设置一些环境变量：
...
use Net::SSL;
$ENV{HTTPS_VERSION} = 3;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $browser = LWP::UserAgent->new();
...
而已！您甚至不需要使用$ENV {PERL_LWP_SSL_CA_FILE}指定服务器根证书的路径.