Perl 为SSL\u验证\u模式选择SSL\u验证\u无

我正在尝试创建到内部

ssl

站点的客户端连接，该站点没有证书，需要绕过代理

我可以绕过代理，我可以连接到站点并创建客户端连接，但是，我收到了以下可怕的警告：

在

C:/草莓/perl/site/lib/LWP/Protocol/http.pm第31行

我的代码：

use    RPC::XML::Client;
use    XML::Simple;
use LWP::Protocol::https;

$ENV{NO_PROXY} = '10.*';

$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

my $server = RPC::XML::Client->new("$vneUrl/api/index.ice",
                                 ssl_opts =>    { SSL_verify_mode   => 'SSL_VERIFY_NONE',
                                                 verify_hostname    => 0,   
                                                 SSL_use_cert => 0x00
                                               },
                                   );

---

该消息来自IO:：Socket:：SSL，它引用它导出的常量

SSL\u VERIFY\u NONE

，而不是字符串

“SSL\u VERIFY\u NONE”

其次，

ssl\u opts

是LWP:：UserAgent的构造函数的参数，而不是RPC:：XML:：Client的

尝试：

---

新版本我认为应该设置为0或1。 我认为这是一个错误：

500 SSL_verify_mode must be a number and not a string

发件人：

致：

---

这个警告中有什么你不明白的地方吗？你的帖子的标题和你剩下的问题有什么关系还不清楚。也许您可以解释一下您认为连接是什么？谢谢，这确实消除了创建客户端连接时的警告。现在我已经创建了$Client，我需要传递请求。例如[my$session=$client->simple_request（'login'，1，0，$username，$password）；]我再次得到了这个语句的错误。我将如何将ssl_opts传递给每个后续请求？嗯，它使用构造函数中创建的UserAgent对象，并按照预期将这些标志传递给该对象。不确定该消息来自何处？是否有类似的解决方案？@mpapec-我知道这是一条老评论，但我在使用Net:：SMTP:：SSL时遇到了类似的困难。我找到的最佳解决方案是使用IO:：Socket:：SSL:：set_defaults，其设置随后将被其他Net:：SMTP:：SSL实例隐式使用。

use IO::Socket::SSL qw( SSL_VERIFY_NONE );

RPC::XML::Client->new($uri,
   useragent => [
      ssl_opts => {
         verify_hostname => 0,
         SSL_verify_mode => SSL_VERIFY_NONE,
      },
   ],
);

500 SSL_verify_mode must be a number and not a string

$useragent->ssl_opts(SSL_verify_mode=>'SSL_VERIFY_NONE');

$useragent->ssl_opts(SSL_verify_mode=>'0');