Perl Requires Chilkat v11.0.0+

Get the Root of a JSON Document

See more JSON Examples

Demonstrates how to get back to the JSON root object from anywhere in the JSON document. This example uses the following JSON document:

{
  "flower": "tulip",
  "abc":
    {
    "x": [
       { "a" : 1 },
       { "b1" : 100, "b2" : 200 },
       { "c" : 3 }
    ],
    "y": 200,
    "z": 200
    }
}

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $json = Chilkat2::JsonObject->new;

my $jsonStr = '{"flower": "tulip","abc":{"x": [{ "a" : 1 },{ "b1" : 100, "b2" : 200 },{ "c" : 3 }],"y": 200,"z": 200}}';

my $success = $json->Load($jsonStr);
if (!$success) {
    print $json->LastErrorText, "\n";
    exit;
}

# Get the "abc" object.
my $abcObj = Chilkat2::JsonObject->new;
$success = $json->ObjectOf2('abc', $abcObj);
if (!$success) {
    print $json->LastErrorText, "\n";
    exit;
}

# Side note: The JSON of a sub-part of the document can be emitted from any JSON object:
$abcObj->EmitCompact(0);
print $abcObj->Emit(), "\n";

# Navigate to the "x" array
my $xArray = Chilkat2::JsonArray->new;
$abcObj->ArrayOf2('x', $xArray);

# Navigate to the 2nd object contained within the array.  This contains members b1 and b2
my $bObj = Chilkat2::JsonObject->new;
$xArray->ObjectAt2(1, $bObj);

# Show that we're at "b1/b2".
# The value of "b1" should be "200"
print 'b2 = ', $bObj->IntOf('b2'), "\n";

# Now go back to the JSON doc root:
my $docRoot = Chilkat2::JsonObject->new;
$bObj->GetDocRoot2($docRoot);

# We'll skip the null check and assume it's non-null...

# Pretty-print the JSON doc from the root to show that this is indeed the root.
$docRoot->EmitCompact(0);
print $docRoot->Emit(), "\n";