Как я могу вывести фрагмент мыла с помощью perl SOAP :: Lite?

Question

Я новичок в протоколе мыла, поэтому я хочу найти модуль perl для создания фрагментов мыла, чтобы я мог узнать, как с его помощью создать фрагмент мыла, SOAP :: Lite - отличный модуль для мыла, ноЯ не могу найти учебники о том, как вывести фрагмент мыла в файлы или стандартный вывод, поэтому какие-либо советы?
С уважением.

Answer 1

use strictures;
use SOAP::Lite qw();
my $soap_body = SOAP::Data->name('foo' => \SOAP::Data->value(SOAP::Data->name('bar' => '123')));
print SOAP::Serializer->envelope(freeform => $soap_body);

---

$ perl -C /tmp/soap.pl | xmllint -format -
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
  <soap:Body>
    <foo>
      <bar xsi:type="xsd:int">123</bar>
    </foo>
  </soap:Body>
</soap:Envelope>

---

Для подобных экспериментальных задач обычно лучше использовать REPL . Это дает вам более быстрый оборот, потому что вы видите результаты сразу после ввода выражения.