Perl

JSON: Access Array Values

See more JSON Examples

Demonstrates how to access values in a JSON array. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $jsonStr = '{ "id": 1, "name": "A green door", "tags": ["home", 22, "green"], "price": 125 }';

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

# Get the "tags" array, which contains "home", 22, "green"
my $tagsArray = $json->ArrayOf('tags');
if (!$json->LastMethodSuccess) {
    print "tags member not found.\n";
    exit;
}

# Get the value at each array index.
# Output will be:
# [0] = home
# [0] as integer = 0
# [1] = 22
# [1] as integer = 22
# [2] = green
# [2] as integer = 0

my $arraySize = $tagsArray->Size;
for my $i (0 .. $arraySize - 1) {
    my $sValue = $tagsArray->StringAt($i);

    print '[', $i, '] = ', $sValue, "\n";

    my $iValue = $tagsArray->IntAt($i);
    print '[', $i, '] as integer = ', $iValue, "\n";
}

# Note: The StringAt method returns the value as a string regardless of the type.

# The IntAt method returns the value as an integer.  If the value does not convert to
# an integer, then 0 is returned.