(Perl) XML Sort by Content

Demonstrates the SortByContent method.

The input XML, available at http://www.chilkatsoft.com/data/fruitSort2.xml, is this:

<root>
    <fruits>
        <apples>
            <apple>fuji</apple>
            <apple>gala</apple>
            <apple>granny smith</apple>
            <apple>honeycrisp</apple>
            <apple>mcintosh</apple>
        </apples>
        <fruit>banana</fruit>
        <fruit>blackberry</fruit>
        <fruit>blueberry</fruit>
        <fruit>orange</fruit>
        <fruit>pear</fruit>
    </fruits>
</root>

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$xml = new chilkat::CkXml();

#  The sample input XML is available at http://www.chilkatsoft.com/data/fruitSort2.xml
$success = $xml->LoadXmlFile("fruitSort2.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

#  Sort the direct children under the "fruits" node by tag:
# xSortRoot is a CkXml
$xSortRoot = $xml->FindChild("fruits");

#  Sort in ascending order.
$bAscending = 1;
$xSortRoot->SortByContent($bAscending);

#  Show the result:
print $xml->getXml() . "\r\n";

#  Note:  The "apples" node contains child nodes, but its
#  text content is 0-length (empty).  Therefore, when sorting in
#  ascending order, it will be positioned before the direct
#  children containing non-empty content.
#  
<root>
    <fruits>
        <apples>
            <apple>granny smith</apple>
            <apple>gala</apple>
            <apple>fuji</apple>
            <apple>mcintosh</apple>
            <apple>honeycrisp</apple>
        </apples>
        <fruit>banana</fruit>
        <fruit>blackberry</fruit>
        <fruit>blueberry</fruit>
        <fruit>orange</fruit>
        <fruit>pear</fruit>
    </fruits>
</root>


#  Sort the direct children under the "apples" node:
$xSortRoot->FindChild2("apples");

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

#  
<root>
    <fruits>
        <apples>
            <apple>fuji</apple>
            <apple>gala</apple>
            <apple>granny smith</apple>
            <apple>honeycrisp</apple>
            <apple>mcintosh</apple>
        </apples>
        <fruit>banana</fruit>
        <fruit>blackberry</fruit>
        <fruit>blueberry</fruit>
        <fruit>orange</fruit>
        <fruit>pear</fruit>
    </fruits>
</root>