(Perl) Build JSON with Mixture of Arrays and Objects

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

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"
# }