Perl
Chilkat2 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 strict;
use warnings;
use Chilkat2;
my $xml = Chilkat2::Xml->new;
# The sample input XML is available at http://www.chilkatsoft.com/data/fruitRecordsSort.xml
my $success = $xml->LoadXmlFile('fruitRecordsSort.xml');
if (!$success) {
print $xml->LastErrorText, "\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.
my $xSortRoot = $xml->FindChild('fruits');
# Sort by the "name" field in ascending order.
my $bAscending = 1;
$xSortRoot->SortRecordsByContent('name', $bAscending);
# Show the result:
print $xml->GetXml(), "\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>