(Perl) Insert JSON Object into another JSON Object

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other..

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

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

use chilkat();

# Imagine we have two separate JSON objects.
$jsonA = chilkat::CkJsonObject->new();
$jsonA->UpdateString("animal","zebra");
$jsonA->UpdateString("colors[0]","white");
$jsonA->UpdateString("colors[1]","black");

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

# jsonA contains:

# {
#   "animal": "zebra",
#   "colors": [
#     "white",
#     "black"
#   ]
# }

$jsonB = chilkat::CkJsonObject->new();
$jsonB->UpdateString("type","mammal");
$jsonB->UpdateBool("carnivore",0);

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

# jsonB contains:

# {
#   "type": "mammal",
#   "carnivore": false
# }

# Let's say we want to insert jsonB into jsonA to get this:

# {
#   "animal": "zebra",
#   "info" " {
#       "type": "mammal",
#       "carnivore": false
# 	},
#   "colors": [
#     "white",
#     "black"
#   ]
# }

$jsonA->AddObjectCopyAt(1,"info",$jsonB);

print $jsonA->emit() . "\r\n";

# The result is this:

# {
#   "animal": "zebra",
#   "info": {
#     "type": "mammal",
#     "carnivore": false
#   },
#   "colors": [
#     "white",
#     "black"
#   ]
# }