Perl

JSON AppendArrayCopy Example

Demonstrates the AppendArrayCopy 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 }");

$jarr = chilkat::CkJsonArray->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() . "\r\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() . "\r\n";
# Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Alfred"},2020]

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