Perl

Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method. Perl

use chilkat();

$success = 0;

$car = "{\"make\":\"Toyota\",\"model\":\"Camry\",\"year\":2022,\"color\":\"silver\",\"engine\":{\"type\":\"inline-4\",\"fuel\":\"gasoline\",\"horsepower\":203},\"features\":[\"bluetooth\",\"backup camera\",\"adaptive cruise control\",\"lane assist\"],\"isElectric\":false}";

$json = chilkat::CkJsonObject->new();

$json->UpdateString("test","abc");

$success = $json->NewObjectOf("car",$car);
if ($success == 0) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# Result:

# {
#   "test": "abc",
#   "car": {
#     "make": "Toyota",
#     "model": "Camry",
#     "year": 2022,
#     "color": "silver",
#     "engine": {
#       "type": "inline-4",
#       "fuel": "gasoline",
#       "horsepower": 203
#     },
#     "features": [
#       "bluetooth",
#       "backup camera",
#       "adaptive cruise control",
#       "lane assist"
#     ],
#     "isElectric": false
#   }
# }