Perl

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt 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\": \"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() . "\r\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() . "\r\n";
# Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

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