Perl Requires Chilkat v11.0.0+

Sort JSON Object by Member Key Name

See more JSON Examples

Demonstrates how to sort the members of a JSON object by the key name. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $json = Chilkat2::JsonObject->new;

$json->UpdateString('xyz', '1234');
$json->UpdateString('abc.xyz', '1234');
$json->UpdateString('abc.def', '1234');
$json->UpdateString('abc.aaa', '1234');
$json->UpdateString('ghi', '1234');
$json->UpdateString('nmo', '1234');

$json->EmitCompact(0);
print $json->Emit(), "\n";

# This is our initial JSON:

# {
#   "xyz": "1234",
#   "abc": {
#     "xyz": "1234",
#     "def": "1234",
#     "aaa": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234"
# }

# Sort the top-level JSON object by key.
my $ascending = 1;
my $caseSensitive = 1;
$json->Sort($ascending, $caseSensitive);

# Look at the sorted JSON..
print $json->Emit(), "\n";

# {
#   "abc": {
#     "xyz": "1234",
#     "def": "1234",
#     "aaa": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234",
#   "xyz": "1234"
# }

# Now sort the members of the "abc" object..
my $jsonAbc = Chilkat2::JsonObject->new;
$json->ObjectOf2('abc', $jsonAbc);

$jsonAbc->Sort($ascending, $caseSensitive);

# Now look at the JSON with the members under "abc" also sorted..
print $json->Emit(), "\n";

# {
#   "abc": {
#     "aaa": "1234",
#     "def": "1234",
#     "xyz": "1234"
#   },
#   "ghi": "1234",
#   "nmo": "1234",
#   "xyz": "1234"
# }