(Perl) Create a JSON Array Containing an Object

Creates a top-level JSON array containing an object.

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

use chilkat();

$jArray = chilkat::CkJsonArray->new();
$jArray->AddObjectAt(0);
# json is a JsonObject
$json = $jArray->ObjectAt(0);

$json->UpdateString("groupId","");
$json->UpdateString("sku","");
$json->UpdateString("title","");
$json->UpdateString("barcode","");
$json->UpdateString("category","");
$json->UpdateString("description","");
$json->UpdateString("images[0]","url1");
$json->UpdateString("images[1]","url...");
$json->UpdateString("isbn","");
$json->UpdateString("link","");
$json->UpdateString("linkLomadee","");
$json->UpdateString("prices[0].type","");
$json->UpdateNumber("prices[0].price","0");
$json->UpdateNumber("prices[0].priceLomadee","0");
$json->UpdateNumber("prices[0].priceCpa","0");
$json->UpdateNumber("prices[0].installment","0");
$json->UpdateNumber("prices[0].installmentValue","0");
$json->UpdateString("productAttributes.\"Atributo 1\"","Valor 1");
$json->UpdateString("productAttributes.\"Atributo ...\"","Valor ...");
$json->UpdateString("technicalSpecification.\"Especificação 1\"","Valor");
$json->UpdateString("technicalSpecification.\"Especificação ...\"","Valor ...");
$json->UpdateNumber("quantity","0");
$json->UpdateNumber("sizeHeight","0");
$json->UpdateNumber("sizeLength","0");
$json->UpdateNumber("sizeWidth","0");
$json->UpdateNumber("weightValue","0");
$json->UpdateNumber("declaredPrice","0");
$json->UpdateNumber("handlingTimeDays","0");
$json->UpdateBool("marketplace",0);
$json->UpdateString("marketplaceName","");

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

# The output of this program is:

# [
#   {
#     "groupId": "",
#     "sku": "",
#     "title": "",
#     "barcode": "",
#     "category": "",
#     "description": "",
#     "images": [
#       "url1",
#       "url..."
#     ],
#     "isbn": "",
#     "link": "",
#     "linkLomadee": "",
#     "prices": [
#       {
#         "type": "",
#         "price": 0,
#         "priceLomadee": 0,
#         "priceCpa": 0,
#         "installment": 0,
#         "installmentValue": 0
#       }
#     ],
#     "productAttributes": {
#       "Atributo 1": "Valor 1",
#       "Atributo ...": "Valor ..."
#     },
#     "technicalSpecification": {
#       "Especificação 1": "Valor",
#       "Especificação ...": "Valor ..."
#     },
#     "quantity": 0,
#     "sizeHeight": 0,
#     "sizeLength": 0,
#     "sizeWidth": 0,
#     "weightValue": 0,
#     "declaredPrice": 0,
#     "handlingTimeDays": 0,
#     "marketplace": false,
#     "marketplaceName": ""
#   }
# ]