Perl Requires Chilkat v9.5.0.82+

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt function. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $jarr = Chilkat2::JsonArray->new;
$jarr->Load('[ 1, 2, 3, "apple", "orange", [ 10, 20, 30 ], { "name": "Luther"} ]');

# Copy the contents of jar to a new array member named "stuff".
# Insert the array at the 2nd position
$json->AddArrayCopyAt(1, 'stuff', $jarr);

print $json->Emit(), "\n";
# Expected output is:  {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

# Note: The contents of the array were copied.
# If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
# For example:
$jarr->AddIntAt(-1, 2020);
print $jarr->Emit(), "\n";
# Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

print $json->Emit(), "\n";
# Remains unchanged: {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}