Perl Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. Perl

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