Perl

Build JSON with Mixture of Arrays and Objects

See more JSON Examples

Another example showing how to build JSON containing a mixture of arrays and objects. Perl

use chilkat();

# We want to build the following JSON:

# { 
#   "accountEnabled": true,
#   "assignedLicenses": [
#     { 
#       "disabledPlans": [ "bea13e0c-3828-4daa-a392-28af7ff61a0f" ],
#       "skuId": "skuId-value"
#     }
#   ],
#   "assignedPlans": [
#     { 
#       "assignedDateTime": "datetime-value",
#       "capabilityStatus": "capabilityStatus-value",
#       "service": "service-value",
#       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
#     }
#   ],
#   "businessPhones": [
#     "businessPhones-value"
#   ],
#   "city": "city-value",
#   "companyName": "companyName-value"
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateBool("accountEnabled",1);
$json->put_I(0);
$json->UpdateString("assignedLicenses[i].disabledPlans[0]","bea13e0c-3828-4daa-a392-28af7ff61a0f");
$json->UpdateString("assignedLicenses[i].skuId","skuId-value");
$json->UpdateString("assignedPlans[i].assignedDateTime","datetime-value");
$json->UpdateString("assignedPlans[i].capabilityStatus","capabilityStatus-value");
$json->UpdateString("assignedPlans[i].service","service-value");
$json->UpdateString("assignedPlans[i].servicePlanId","bea13e0c-3828-4daa-a392-28af7ff61a0f");
$json->UpdateString("businessPhones[i]","businessPhones-value");
$json->UpdateString("city","city-value");
$json->UpdateString("companyName","companyName-value");

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

# Output:

# { 
#   "accountEnabled": true,
#   "assignedLicenses": [
#     { 
#       "disabledPlans": [
#         "bea13e0c-3828-4daa-a392-28af7ff61a0f"
#       ],
#       "skuId": "skuId-value"
#     }
#   ],
#   "assignedPlans": [
#     { 
#       "assignedDateTime": "datetime-value",
#       "capabilityStatus": "capabilityStatus-value",
#       "service": "service-value",
#       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
#     }
#   ],
#   "businessPhones": [
#     "businessPhones-value"
#   ],
#   "city": "city-value",
#   "companyName": "companyName-value"
# }