带有原始XML的Perl SOAP:：Lite WSDL

Question

我想用Perl做一个SOAP请求，我想发送原始的XML数据，比如

$xml = "<IODATA>
  <TEST>
    Hello World
  </TEST>
</IODATA>";

我使用的SOAP:：Lite如下所示：

my $soap = SOAP::Lite->service('http://localhost/cms/WebService/RDCMSXMLServer.WSDL');
$soap->Execute($xml, "", "");

但当我检查SOAP主体时，我的xml被解析，如下所示：

<IODATA>

等等。

WSDL文件：

<?xml version='1.0' encoding='UTF-8' ?>
<definitions
name='RDCMSXMLServer'
targetNamespace='http://tempuri.org/RDCMSXMLServer/webservice/'
xmlns:wsdlns='http://tempuri.org/RDCMSXMLServer/webservice/'
xmlns:typens='http://tempuri.org/RDCMSXMLServer/type/'
xmlns:soap='http://schemas.xmlsoap.org/wsdl/soap/'
xmlns:xsd='http://www.w3.org/2001/XMLSchema'
xmlns:stk='http://schemas.microsoft.com/soap-toolkit/wsdl-extension'
xmlns:dime='http://schemas.xmlsoap.org/ws/2002/04/dime/wsdl/'
xmlns:ref='http://schemas.xmlsoap.org/ws/2002/04/reference/'
xmlns:content='http://schemas.xmlsoap.org/ws/2002/04/content-type/'
xmlns:wsdl='http://schemas.xmlsoap.org/wsdl/'
xmlns='http://schemas.xmlsoap.org/wsdl/'>

<types>
    <schema
        targetNamespace='http://tempuri.org/RDCMSXMLServer/type/'
        xmlns='http://www.w3.org/2001/XMLSchema'
        xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/'
        xmlns:wsdl='http://schemas.xmlsoap.org/wsdl/'
        elementFormDefault='qualified'>

        <import namespace='http://schemas.xmlsoap.org/soap/encoding/'/>
        <import namespace='http://schemas.xmlsoap.org/wsdl/'/>
        <import namespace='http://schemas.xmlsoap.org/ws/2002/04/reference/'/>
        <import namespace='http://schemas.xmlsoap.org/ws/2002/04/content-type/'/>

    </schema>
</types>

<message name='XmlServer.Execute'>
    <part name='sParamA' type='xsd:string'/>
    <part name='sErrorA' type='xsd:anyType'/>
    <part name='sResultInfoA' type='xsd:anyType'/>
</message>

<message name='XmlServer.ExecuteResponse'>
    <part name='Result' type='xsd:string'/>
    <part name='sErrorA' type='xsd:anyType'/>
    <part name='sResultInfoA' type='xsd:anyType'/>
</message>

<portType name='XmlServerSoapPort'>

    <operation name='Execute' parameterOrder='sParamA sErrorA sResultInfoA'>
        <input message='wsdlns:XmlServer.Execute'/>
        <output message='wsdlns:XmlServer.ExecuteResponse'/>
    </operation>

</portType>

<binding name='XmlServerSoapBinding' type='wsdlns:XmlServerSoapPort' >

    <stk:binding preferredEncoding='UTF-8'/>
    <soap:binding style='rpc' transport='http://schemas.xmlsoap.org/soap/http'/>

    <operation name='Execute'>
        <soap:operation soapAction='http://tempuri.org/RDCMSXMLServer/action/XmlServer.Execute'/>
        <input>
            <soap:body
                use='encoded'
                namespace='http://tempuri.org/RDCMSXMLServer/message/'
                encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'
                parts='sParamA sErrorA sResultInfoA'/>
        </input>
        <output>
            <soap:body
                use='encoded'
                namespace='http://tempuri.org/RDCMSXMLServer/message/'
                encodingStyle='http://schemas.xmlsoap.org/soap/encoding/'
                parts='Result sErrorA sResultInfoA'/>
        </output>
    </operation>

</binding>

<service name='RDCMSXMLServer' >
    <port name='XmlServerSoapPort' binding='wsdlns:XmlServerSoapBinding' >
        <soap:address location='http://10.1.102.104:80/CMS/webservice/RDCMSXMLServer.WSDL'/>
    </port>
</service>

 </definitions>

我怎样才能改变这一点？

事先非常感谢。

克里斯

Answer 1

我想用Perl发出SOAP请求，并发送原始XML数据

让我看看。在SOAP:：Data文档中有一部分是关于使用原始XML的。这是：

在某些情况下，您可能需要使用未序列化的原始XML文本对消息进行编码。要使用原始XML实例化SOAP::Data对象，请执行以下操作：

$xml_content = "<foo><bar>123</bar></foo>";
$elem = SOAP::Data->type('xml' => $xml_content);

您也可以用代码来实现这一点。可能是这样的：

my $xml = <<'XML';
<IODATA>
  <TEST>
    Hello World
  </TEST>
</IODATA>
XML

my $soap = SOAP::Lite->service('http://localhost/cms/WebService/RDCMSXMLServer.WSDL');
my $res = $soap->sayHello(SOAP::Data->type( 'xml' => $xml ));

但是，这将无法工作，因为在您的WSDL文件中没有定义名为sayHello的方法！我没有尝试您的WSDL，但是您可能想再次通读SOAP::Lite文档来自己做这件事。

我相信它可以像这样工作，或者类似（未经测试！）：

use SOAP::Lite;
my $soap = SOAP::Lite->service("http://localhost/cms/WebService/RDCMSXMLServer.WSDL");
my $result = $soap->Execute($sParamA, $sErrorA,$ sResultInfoA);
print $result->result();

您可能也会发现这很有帮助。