Perl

JSON Iterate Members

See more JSON Examples

Demonstrates how to loop over the immediate members of a JSON object. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

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

my $numMembers = $json->Size;
for my $i (0 .. $numMembers - 1) {
    my $name = $json->NameAt($i);
    my $value = $json->StringAt($i);

    print $name, ': ', $value, "\n";

    my $iValue = $json->IntAt($i);
    print $name, ' as integer: ', $iValue, "\n";
}

# Note: The StringAt method returns the value as a string regardless of the type.
# If the value is a JSON array (such as for ["home", "green"]), then the JSON encoding
# of the entire array is returned.

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