Perl

JSON Array AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

Perl

use chilkat();

$jarr = chilkat::CkJsonArray->new();
$jarr->Load("[ 1, 2, 3, 4]");

$json = chilkat::CkJsonObject->new();
$json->Load("{\"street\":\"1200 Elm St.\",\"city\":\"Springfield\",\"zip\":60606}");

# Copy the contents of json to the array at index 2, making it the 3rd item in the array.
$jarr->AddObjectCopyAt(2,$json);

print $jarr->emit() . "\r\n";
# Expected output is:  [1,2,{"street":"1200 Elm St.","city":"Springfield","zip":60606},3,4]