(Perl) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

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

use chilkat();

# Demonstrates how to load replace the data at a location within a JSON database.

$p = "{\"a\": 1, \"b\": 2, \"c\": { \"x\": 1, \"y\": 2 } }";

$json = chilkat::CkJsonObject->new();
$json->Load($p);
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

$q = "{\"mm\": 11, \"nn\": 22}";

# c is a JsonObject
$c = $json->ObjectOf("c");
$c->Load($q);

# See that x and y are replaced with mm and nn.
print $json->emit() . "\r\n";