(Perl) Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.

Note: This example requires Chilkat v9.5.0.76 or greater.

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

use chilkat();

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

# Load the following JSON:

# {
#   "petter": {
#     "DOB": "26/02/1986",
#     "gender": "male",
#     "country": "US"
#   },
#   "Sara": {
#     "DOB": "13/05/1982",
#     "gender": "female",
#     "country": "FR"
#   },
#   "Jon": {
#     "DOB": "19/03/1984",
#     "gender": "male",
#     "country": "UK"
#   }
# }

$success = $json->LoadFile("qa_data/json/people.json");
# Assume success..

# Swap the positions of Jon and Sara.
$index1 = $json->IndexOf("Jon");
$index2 = $json->IndexOf("Sara");
$json->Swap($index1,$index2);

# We have this now:
print $json->emit() . "\r\n";

# {
#   "petter": {
#     "DOB": "26/02/1986",
#     "gender": "male",
#     "country": "US"
#   },
#   "Jon": {
#     "DOB": "19/03/1984",
#     "gender": "male",
#     "country": "UK"
#   },
#   "Sara": {
#     "DOB": "13/05/1982",
#     "gender": "female",
#     "country": "FR"
#   }
# }

# To swap an inner member:
# jsonSara is a JsonObject
$jsonSara = $json->ObjectOf("Sara");
$index1 = $jsonSara->IndexOf("DOB");
$index2 = $jsonSara->IndexOf("country");
$jsonSara->Swap($index1,$index2);

# We now have this:
print $json->emit() . "\r\n";

# {
#   "petter": {
#     "DOB": "26/02/1986",
#     "gender": "male",
#     "country": "US"
#   },
#   "Jon": {
#     "DOB": "19/03/1984",
#     "gender": "male",
#     "country": "UK"
#   },
#   "Sara": {
#     "country": "FR",
#     "gender": "female",
#     "DOB": "13/05/1982"
#   }
# }