Perl

Using CDATA in XML

See more XML Examples

Demonstrates how to force the content of a node to be encapsulated in CDATA.

The output of the following program is an XML document that looks like this:

<root>
    <year>2009</year>
    <junk1>abc .. &lt; &amp; &gt; 123</junk1>
    <junk2><![CDATA[abc .. < & > 123]]></junk2>
</root>

Perl

use chilkat();

$xml = chilkat::CkXml->new();

$xml->put_Tag("root");

# child1 is a Xml
$child1 = $xml->NewChild("year","2009");

# child2 is a Xml
$child2 = $xml->NewChild("junk1","abc .. < & > 123");

# child3 is a Xml
$child3 = $xml->NewChild("junk2","abc .. < & > 123");
$child3->put_Cdata(1);

print $xml->getXml() . "\r\n";