Perl

JSON AppendObject2 Example

Demonstrates the AppendObject2 function. Perl

use chilkat();

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

# Append an empty object named "addr"
$jObj = chilkat::CkJsonObject->new();
$json->AppendObject2("addr",$jObj);

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

# Add members to the object.
$jObj->AppendString("street","1200 Elm St.");
$jObj->AppendString("city","Springfield");
$jObj->AppendInt("zip",60606);

print $json->emit() . "\r\n";
# Expected output is:  {"name":"John","marbles":100,"addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606}}