(Perl) Sort JSON Object by Member Key Name

See more JSON Examples

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$json = chilkat::CkJsonObject->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->put_EmitCompact(0);
print $json->emit() . "\r\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.
$ascending = 1;
$caseSensitive = 1;
$json->Sort($ascending,$caseSensitive);

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

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

# Now sort the members of the "abc" object..
$jsonAbc = chilkat::CkJsonObject->new();
$json->ObjectOf2("abc",$jsonAbc);

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

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

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