Perl SOAP::Lite Adding CDATA

Question

I am calling a web service using SOAP::Lite module as follows:

my $som = $soap->call('ns:xxx' =>
           (
            SOAP::Data->name('ns:data' =>
            \SOAP::Data->value(
               SOAP::Data->name('username')->type('')->value($username),
             )
          )
      )
  );

It did not work. So I called web service using SOAPUI tool to see xml structure.

Then I run my code at debug mode (use SOAP::Lite 'debug'), see created xml and compared with the xml of SOAPUI tool. The only difference is that SOAPUI xml contains CDATA tag as follow:

<![CDATA[
   xml
]]>

I searched and saw that CDATA is used to prevent error caused by special characters

How can I add this tag using Perl code?

score 0 · Answer 1 · answered Mar 03 '17 at 16:06

0

Use XML::Generator to encode the CDATA section. Then put it in the relevant soap structure.

answered Mar 03 '17 at 16:06

rahed h

41
1

I created CDATA but unfortunately SOAP::Data->value() replaces character '<' with '<' and character '>' with '>' – kadir_beyazli Mar 03 '17 at 17:56
The type should be: SOAP::Data->type('xml' => $xml_content) – rahed h Mar 04 '17 at 21:54

Perl SOAP::Lite Adding CDATA

1 Answers1