(Perl) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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

use chilkat();

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

# Add an empty object at the 1st JSON array position.
$arr->AddObjectAt(0);
# Get the object we just created.
# obj is a JsonObject
$obj = $arr->ObjectAt(0);
$obj->UpdateString("Name","Otto");
$obj->UpdateInt("Age",29);
$obj->UpdateBool("Married",0);

# Add an empty object at the 2nd JSON array position.
$arr->AddObjectAt(1);
# obj is a JsonObject
$obj = $arr->ObjectAt(1);
$obj->UpdateString("Name","Connor");
$obj->UpdateInt("Age",43);
$obj->UpdateBool("Married",1);

# Add an empty object at the 3rd JSON array position.
$arr->AddObjectAt(2);
# obj is a JsonObject
$obj = $arr->ObjectAt(2);
$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
#   }
# ]