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

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"
#  }