(Perl) Load ucs2 XML File (utf-16)

Demonstrates how to load a ucs2 (utf-16 little-endian) XML file into Chilkat XML.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# If the XML file specifies the encoding in the XML declaration, such as:
# <?xml version = "1.0" encoding = "UTF-16" standalone = "no" ?>
# Then it's simply a matter of calling LoadXmlFile.
# Chilkat will automatically read the XML declaration and will
# process the file correctly.   For example:

$xml = chilkat::CkXml->new();
$success = $xml->LoadXmlFile("qa_data/xml/sample_ucs2.xml");

# If, however, there is no XML declaration to indicate the character encoding,
# then you must explicitly read the file according to what you know
# is the correct encoding.  For example:
$sb = chilkat::CkStringBuilder->new();
$success = $sb->LoadFile("qa_data/xml/sample_ucs2.xml","utf-16");
# Assuming success...
$success = $xml->LoadSb($sb,1);

# To convert to the XML from utf-16 to utf-8, do the following:
$xml->put_Encoding("utf-8");
print $xml->getXml() . "\r\n";
$success = $xml->SaveXml("qa_output/sample_utf8.xml");