xml - 如何使用 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),

添加参数后，调用实际方法...

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