Perl Requires Chilkat v9.5.0.82+

JSON AppendArrayCopy Example

Demonstrates the AppendArrayCopy 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": "Alfred"} ]');

# Copy the contents of jar to a new array member named "stuff".
$json->AppendArrayCopy('stuff', $jarr);

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

# 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":"Alfred"},2020]

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