Perl
Perl
XML Sort Records by Content
See more XML Examples
Demonstrates the SortRecordsByContent method.The input XML, available at http://www.chilkatsoft.com/data/fruitRecordsSort.xml, is this:
<root>
<fruits>
<fruit>
<name>apple</name>
<color>red</color>
</fruit>
<fruit>
<name>banana</name>
<color>yellow</color>
</fruit>
<fruit>
<name>blackberry</name>
<color>purple</color>
</fruit>
<fruit>
<name>blueberry</name>
<color>blue</color>
</fruit>
<fruit>
<name>orange</name>
<color>orange</color>
</fruit>
<fruit>
<name>pear</name>
<color>green</color>
</fruit>
</fruits>
</root>
Chilkat Perl Downloads
use chilkat();
$success = 0;
$xml = chilkat::CkXml->new();
# The sample input XML is available at http://www.chilkatsoft.com/data/fruitRecordsSort.xml
$success = $xml->LoadXmlFile("fruitRecordsSort.xml");
if ($success != 1) {
print $xml->lastErrorText() . "\r\n";
exit;
}
# The "fruit" records are direct children of the "fruits" node.
# Therefore, to sort the fruit records, the SortRecordsByContent
# method must be called from the "fruits" node.
# xSortRoot is a Xml
$xSortRoot = $xml->FindChild("fruits");
# Sort by the "name" field in ascending order.
$bAscending = 1;
$xSortRoot->SortRecordsByContent("name",$bAscending);
# Show the result:
print $xml->getXml() . "\r\n";
# <root>
# <fruits>
# <fruit>
# <name>apple</name>
# <color>red</color>
# </fruit>
# <fruit>
# <name>banana</name>
# <color>yellow</color>
# </fruit>
# <fruit>
# <name>blackberry</name>
# <color>purple</color>
# </fruit>
# <fruit>
# <name>blueberry</name>
# <color>blue</color>
# </fruit>
# <fruit>
# <name>orange</name>
# <color>orange</color>
# </fruit>
# <fruit>
# <name>pear</name>
# <color>green</color>
# </fruit>
# </fruits>
# </root>