Perl Requires Chilkat v9.5.0.82+

JSON AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $json = Chilkat2::JsonObject->new;
$json->Load('{ "name": "John", "marbles": 100 }');

my $json2 = Chilkat2::JsonObject->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(), "\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(), "\n";
# Expected output is:  {"name":"John","addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606},"marbles":100}

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