如何在使用SOAP :: Lite的Perl中的SOAP-Request中创建参数？

Question

如何使用SOAP :: Lite在perl中创建以下请求？

<?xml version="1.0" encoding="utf-8"?> 
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> 
    <soap:Body> 
    <InsertVerbalRecording xmlns="xyz.abc.ws"> 
     <inVar> 
     <VerbalPrefix>string</VerbalPrefix> 
     <VerbalID>int</VerbalID> 
     <ClientNo>int</ClientNo> 
     </inVar> 
    </InsertVerbalRecording> 
    </soap:Body> 
</soap:Envelope> 

任何指针表示赞赏。

Answer 1

想通了，就应该像这样工作...

my @params = SOAP::Data->name("inVar" => \SOAP::Data->value((SOAP::Data->name(VerbalPrefix => 'V'), SOAP::Data->name(VerbalID => $verbalId),

添加PARAMS后，拨打电话的实际方法......

my $res = $proxy->call('InsertVerbalRecording' => @params);