Perl

Copy JSON Object from one JSON Array to Another

See more JSON Examples

Demonstrates how to copy an object in a JSON array to another JSON array. Perl

use chilkat();

$arr1 = chilkat::CkJsonArray->new();
$arr2 = chilkat::CkJsonArray->new();

$s = "[{\"a\":1}, {\"b\":2}, {\"c\":3}]";
$sEmpty = "[]";

$arr1->Load($s);
$arr2->Load($sEmpty);

$jObj = chilkat::CkJsonObject->new();
$arr1->ObjectAt2(1,$jObj);

$arr2->AddObjectCopyAt(-1,$jObj);

print $arr2->emit() . "\r\n";

# output is:   [{"b":2}]