Perl Requires Chilkat v11.0.0+

Swap JSON Objects

See more JSON Examples

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

use chilkat();

$success = 0;

$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");
if ($success == 0) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

#  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 = chilkat::CkJsonObject->new();
$json->ObjectOf2("Sara",$jsonSara);

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