(Perl) 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.

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

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

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 is a JsonObject
$jsonAbc = $json->ObjectOf("abc");
$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"
# }