Это мой первый скрипт на Perl. Я установил SOAP :: Lite с использованием CPAN, и, похоже, все прошло нормально.

я пытаюсь получить доступ к простому веб-сервису HelloWorld .NET. Я'получаю сообщение об ошибке, которая, по-видимому, связана с тем, что Perl или SOAP :: Lite не могут проверить сертификат SSL.

Хотя это выглядит такВернув код 500, я создал Java-клиент, который мог нормально вызывать веб-метод, поэтому я неЯ думаю, что проблема в конце веб-службы.

Кто-нибудь может указать мне правильное направление относительно того, как я мог бы заставить это работать?

Автор сценария:

#!/usr/bin/perl

use SOAP::Lite 'trace', 'debug';

$api_ns = "https://www.mydomain.com/edgedev/";
$api_url = "https://www.mydomain.com/edgedev/ws.asmx";
$action = "HelloWorld";

my $soap = SOAP::Lite
                -> readable(1)
                -> ns($api_ns, 'tns')
                -> proxy($api_url)
                -> on_action(sub { return "\"$action\""});

print $soap->HelloWorld()->result;

Результат

  
    
      

SOAP::Transport::HTTP::Client::send_receive: 500 Can't connect to www.mydomain.com:443 (certificate verify failed)
Content-Type: text/plain
Client-Date: Tue, 12 Feb 2013 16:40:28 GMT
Client-Warning: Internal response

Can't connect to www.mydomain.com:443 (certificate verify failed)

You can disable hostname check by setting environment variable PERL_LWP_SSL_VERIFY_HOSTNAME=0

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown errorerror:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol/http.pm line 57.
500 Can't connect to www.mydomain.com:443 (certificate verify failed) at ./soaptest.pl line 15