(Perl) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Note: This example requires Chilkat v11.1.0 or greater.

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

use chilkat();

$success = 0;

$arr = chilkat::CkJsonArray->new();

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

# Create a new and empty JSON object in the 1st position of the JSON array 
# and return the reference in the last argument.
$arr->AddObjectAt2(0,$obj);
$obj->UpdateString("Name","Otto");
$obj->UpdateInt("Age",29);
$obj->UpdateBool("Married",0);

# Create a new and empty JSON object in the 2nd position of the JSON array 
# and return the reference in the last argument.
$arr->AddObjectAt2(1,$obj);
$obj->UpdateString("Name","Connor");
$obj->UpdateInt("Age",43);
$obj->UpdateBool("Married",1);

# Create a new and empty JSON object in the 3rd position of the JSON array 
# and return the reference in the last argument.
$arr->AddObjectAt2(2,$obj);
$obj->UpdateString("Name","Ramona");
$obj->UpdateInt("Age",34);
$obj->UpdateBool("Married",1);

# Examine what we have:
$arr->put_EmitCompact(0);
print $arr->emit() . "\r\n";

# The output is:

# [
#   {
#     "Name": "Otto",
#     "Age": 29,
#     "Married": false
#   },
#   {
#     "Name": "Connor",
#     "Age": 43,
#     "Married": true
#   },
#   {
#     "Name": "Ramona",
#     "Age": 34,
#     "Married": true
#   }
# ]