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>

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $xml = Chilkat2::Xml->new;

$xml->Tag('root');

my $child1 = $xml->NewChild('year', '2009');

my $child2 = $xml->NewChild('junk1', 'abc .. < & > 123');

my $child3 = $xml->NewChild('junk2', 'abc .. < & > 123');
$child3->Cdata(1);

print $xml->GetXml(), "\n";