Perl

JSON AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

Perl

use chilkat();

$json = chilkat::CkJsonObject->new();
$json->Load("{ \"name\": \"John\", \"marbles\": 100 }");

$json2 = chilkat::CkJsonObject->new();
$json2->Load("{\"street\":\"1200 Elm St.\",\"city\":\"Springfield\",\"zip\":60606}");

# Copy the contents of json2 to a new member object named "addr".
# Insert it in the 2nd position.
$json->AddObjectCopyAt(1,"addr",$json2);

print $json->emit() . "\r\n";
# Expected output is:  {"name":"John","addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606},"marbles":100}

# Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
# For example:
$json->UpdateString("addr.street","1000 Oak St.");
print $json->emit() . "\r\n";
# Expected output is:  {"name":"John","addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606},"marbles":100}

print $json2->emit() . "\r\n";
# Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}