使用带有Perl的SOAP调用函数

问题描述

我试图通过Perl访问使用SOAP的Web服务，并且在调用需要参数的服务功能时遇到问题。指示SOAP调用的XSD表示，

 < xs：complexType name =getVersion> 
< xs：sequence /> 
< / xs：complexType> 
< xs：complexType name =getVersionResponse> 
< xs：sequence> 
< xs：element minOccurs =0name =returntype =xs：string/> 
< / xs：sequence> 
< / xs：complexType> 
 ... 
< xs：complexType name =enumerateEntities> 
< xs：sequence> 
< xs：element name =entityIdtype =xs：int/> 
< xs：element minOccurs =0name =entityTypetype =tns：entityType/> 
< / xs：sequence> 
< / xs：complexType> 
< xs：complexType name =enumerateEntitiesResponse> 
< xs：sequence> 
 < / xs：sequence> 
< / xs：complexType> 
  

根据服务的文档，这两个函数的签名是：

 字符串getVersion（）
 int [] enumerateEntities（int entityId，EntityType entityType）
  

我可以使用以下函数调用第一个不需要输入参数的函数：

 ＃！/ usr / bin / perl 
 
使用SOAP :: Lite; 
 my $ uri ='http://wsdl.mydomain.com/'; 
 my $ service = SOAP :: Lite 
  - > uri（$ uri）
  - > on_action（sub {sprintf'Call by on_action：％s，shift}）
  - >代理（ 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; 
 
除非（$ theResult->故障）{printVersion：; print $ theResult->结果;} 
 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; 
打印$ result2->结果; 
  

我做错了什么，导致我无法通过参数调用服务的函数？

---

编辑：
以下是使用SOAP :: WSDL

 ＃！/ usr / bin / perl 
 
使用SOAP :: WSDL; 
使用Data :: Dumper; 
 $ b $ my $ service = SOAP :: WSDL-> new（
 wsdl =>'http://192.168.1.100:8688/MyService/services/MyService.MyServicePort?wsdl' ，
 outputhash => 1 
）; 
  

解决方案

使用来使用服务wsdl，它也从marshals和（可选）为您的普通perl数据结构。高度推荐的模块。

类似如下：

 使用SOAP :: WSDL; 
使用Data :: Dumper; 
 $ b 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）; 
  

I am attempting to access a web service using SOAP through Perl and am having issues calling the service's functions that require parameters. The XSD that dictates the SOAP call says,

<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>

According to the docs for the service, the signatures for the two functions are:

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

I am able to call the first function, which requires no input parameters, using:

#!/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;}

...but my attempt (below) at calling a function with parameters by changing line 11 on have been futile.

...
@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;

What am I doing wrong that is preventing me from calling functions of the service with parameters?

---

Edit:Here's the updated sample code with using 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
);

解决方案

Use SOAP::WSDL to consume the service wsdl, it also marshals from and (optionally) to plain perl data structures for you. Highly recommended module.

Something like the following:

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);

这篇关于使用带有Perl的SOAP调用函数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！