Конвертировать PHP SoapClient в Perl SOAP :: Lite

Я пишу веб-приложение, которое работает с API Five9. У меня есть работающий скрипт php, который использует API для распечатки электронной почты первого пользователя. Мое приложение написано на Perl, и я пытаюсь избежать использования PHP-скрипта. Я пытался использовать SOAP :: Lite, но у меня возникли трудности. Вот мой рабочий скрипт PHP.

#!/usr/bin/php
<?php

$soap = null;
$wsdl = "https://api.five9.com/wsadmin/v2/AdminWebService?wsdl";

$user = "[email protected]";
$pass = "password";

$soap_options = array("login" => $user, "password" => $pass, "trace" => 1);

$soap = new SoapClient($wsdl, $soap_options);

$arryParams['userNamePattern'] = '';

$result = $soap->getUsersInfo($arryParams);

if(isset($result->return)) {
$objRecords = $result->return;
print $objRecords[0]->generalInfo->EMail;
print "\n";

}

?>

Вот что я до сих пор работаю с Perl и SOAP :: Lite

#!/usr/bin/env perl

use warnings;
use strict;

use MIME::Base64;
use Data::Dumper;
use SOAP::Lite +trace => [ transport => sub { print $_[0]->as_string } ];

my $wsdl_five9 = 'https://api.five9.com/wsadmin/AdminWebService?wsdl&[email protected]';
my $uri  = 'https://api.five9.com/wsadmin/AdminWebService';
my $user = '[email protected]';
my $password = 'password';

my $authorize = 'Basic '.encode_base64($user . ":" . $password);

my $client = SOAP::Lite->service($wsdl_five9);

$client->on_fault(
sub {
my $soap = shift;
my $res = shift;

if(ref($res) eq '') {
die($res);
} else {
die($res->faultstring);
}
return new SOAP::SOM;
}
);

print "Done\n";

Если у кого-то есть опыт работы с Perl и SOAP, мы будем благодарны за понимание.

3

Решение

Задача ещё не решена.

Другие решения

Других решений пока нет …

По вопросам рекламы [email protected]