Вызов функций с параметрами с использованием SOAP с Perl - PullRequest
Новая
       11

Вызов функций с параметрами с использованием SOAP с Perl

5 голосов
/ 17 ноября 2009

Я пытаюсь получить доступ к веб-службе, используя SOAP через Perl, и у меня возникают проблемы с вызовом функций службы, которые требуют параметров. XSD, который диктует вызов SOAP, говорит: 

<xs:complexType name="getVersion"> 
<xs:sequence/> 
</xs:complexType> 
<xs:complexType name="getVersionResponse"> 
<xs:sequence> 
<xs:element minOccurs="0" name="return" type="xs:string"/> 
</xs:sequence> 
</xs:complexType>
...
<xs:complexType name="enumerateEntities"> 
<xs:sequence> 
<xs:element name="entityId" type="xs:int"/> 
<xs:element minOccurs="0" name="entityType" type="tns:entityType"/> 
</xs:sequence> 
</xs:complexType> 
<xs:complexType name="enumerateEntitiesResponse"> 
<xs:sequence> 
<xs:element maxOccurs="unbounded" minOccurs="0" name="return" nillable="true" type="xs:int"/> 
</xs:sequence> 
</xs:complexType>

Согласно документам для службы, подписи для двух функций: 

String getVersion ()
int[] enumerateEntities (int entityId, EntityType entityType)

Я могу вызвать первую функцию, которая не требует ввода параметров, используя: 

#!/usr/bin/perl

use SOAP::Lite;
my $uri = 'http://wsdl.mydomain.com/';
my $service = SOAP::Lite
 -> uri($uri)
 -> on_action(sub { sprintf '"Call by on_action: %s"',shift})
 -> proxy('http://192.168.1.100:8688/MyService/services/MyService.MyServicePort/');

$method = SOAP::Data->name("MyService")->attr({xmlns => $uri});
$getVersion = SOAP::Data->name("getVersion")->attr({xmlns=>$uri});#line 11
my $theResult = $service->getVersion;

unless ($theResult->fault){ print "Version: "; print $theResult->result;}
else {print $theResult->faultstring;}

... но моя попытка (ниже) вызвать функцию с параметрами путем изменения строки 11 была тщетной. 

...
@entityId = SOAP::Data->type('int')->name('entityId')->value(0);
@entityType = SOAP::Data->type('EntityType')->name('entityType')->value(NODE);
$enumerateEntities = SOAP::Data->name("enumerateEntities",@entityId,@entityType)->attr({xmlns=>$uri});
my $result2 = $service->enumerateEntities;
print $result2->result;

Что я делаю не так, что мешает мне вызывать функции сервиса с параметрами?

Edit: Вот обновленный пример кода с использованием SOAP :: WSDL 

#!/usr/bin/perl

use SOAP::WSDL;
use Data::Dumper;

my $service = SOAP::WSDL->new(
   wsdl => 'http://192.168.1.100:8688/MyService/services/MyService.MyServicePort?wsdl',
   outputhash => 1
);

Ответы [ 3 ]

5 голосов
/ 18 ноября 2009

Используйте SOAP :: WSDL для использования службы wsdl, она также маршалирует и (необязательно) выводит для вас структуры данных perl. Настоятельно рекомендуется модуль.

Что-то вроде следующего: 

use SOAP::WSDL;
use Data::Dumper;

my $soap = SOAP::WSDL->new(
  wsdl => 'http://server/pathtoservice?WSDL',
  outputhash => 1
);
my $res = $soap->call('method', { foo => 1, bar =>2 });
die $res->faultstring if $res->fault;
print Dumper($res->result);
2 голосов
/ 15 февраля 2013

Вы можете использовать wsdl2perl.pl для генерации кода заглушки клиента из wsdl. Это делает вещи довольно легкими. wsdl2perl.pl является частью SOAP :: WSDL. Вот пример кода после создания клиентской заглушки. 

use MyInterfaces::SoapImplService::SoapPort;

my $soap = MyInterfaces::SoapImplService::SoapPort->new();
#calling method createRecipient which takes 2 parameterss:
#1. Complex type : recipient
#2. Complex type : authentication

my $response=$soap->createRecipient( { # MyTypes::createRecipient
    recipient =>  { # MyTypes::Recipient
      address =>  "test701\@test.com", # string
      externalID =>  "test701\@test.com", # string
      sourceDescription =>  "testing perl", # string
      demographics =>  { # MyTypes::StringCollection
        },
    },
  },,
 { # MyTypes::authentication
   username=>'testuser' , password=>'pass'
  },,
 );

#you can find example code of calling every function in your "MyInterfaces\SoapImplService\SoapPort.pm" file.
0 голосов
/ 24 ноября 2009

Вы можете попробовать использовать SOAP :: Lite, если у вас есть проблемы с WSDL:

помните, вы всегда можете использовать: 

use SOAP::Lite qw(trace);

чтобы увидеть точный XML, который вы отправляете, чтобы увидеть, насколько вы близки.

У меня нет времени, чтобы проверить это, но вот мое лучшее предположение из головы: 

my $soap = SOAP::Lite
 -> uri($uri)
 -> on_action(sub { sprintf '"Call by on_action: %s"',shift})
 -> proxy('http://192.168.1.100:8688/MyService/services/MyService.MyServicePort/');

my $id = SOAP::Data->type('int')->name('entityId')->value(0);
my $type= SOAP::Data->type('EntityType')->name('entityType')->value(NODE);
$soap->enumerateEntities($id, $param);
...