Perl

JSON AppendArray2 Example

Demonstrates the AppendArray2 function. Perl

use chilkat();

$json = chilkat::CkJsonObject->new();
$json->Load("{ \"name\": \"John\", \"marbles\": 100 }");

# Append an empty array named "xyz"
$jarr = chilkat::CkJsonArray->new();
$json->AppendArray2("xyz",$jarr);

print $json->emit() . "\r\n";
# Expected output is:   {"name":"John","marbles":100,"xyz":[]}

# Add elements to the array.
$jarr->AddStringAt(-1,"hello");
$jarr->AddIntAt(-1,256);

print $json->emit() . "\r\n";
# Expected output is:  {"name":"John","marbles":100,"xyz":["hello",256]}