(Perl) JSON Iterate Members

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

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

use chilkat();

$json = chilkat::CkJsonObject->new();

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

$success = $json->Load($jsonStr);
if ($success != 1) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

$numMembers = $json->get_Size();

for ($i = 0; $i <= $numMembers - 1; $i++) {

    $name = $json->nameAt($i);
    $value = $json->stringAt($i);

    print $name . ": " . $value . "\r\n";

    $iValue = $json->IntAt($i);
    print $name . " as integer: " . $iValue . "\r\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