| (Perl) XML EmitCompactDemonstrates the XML EmitCompact property to generate XML that is not pretty-printed, but is instead compact with whitespace removed.
 
Note: This example requires Chilkat v9.5.0.64 or later. 
 use chilkat();
# Note: This example requires Chilkat v9.5.0.64 or later.
$xml = chilkat::CkXml->new();
$xml->put_Tag("aaa");
$xml->NewChild2("red|green|blue","sky");
# Show the XML in normal indented (pretty-printed) format:
print $xml->getXml() . "\r\n";
# The output:
# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<aaa>
# 	    <red>
# 	        <green>
# 	            <blue>sky</blue>
# 	        </green>
# 	    </red>
# 	</aaa>
# Now set the EmitCompact property.
$xml->put_EmitCompact(1);
# Show the XML in compact form:
print $xml->getXml() . "\r\n";
# The compact output:
# 	<?xml version="1.0" encoding="utf-8" ?>
# 	<aaa><red><green><blue>sky</blue></green></red></aaa>
# 
 |