Perl

Find and Delete Object from JSON Array

See more JSON Examples

Demonstrates how to find an delete an object from a JSON array of objects. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example will delete the "Pasta" category object from Menu B.

# {
#   "menus": [
#     {
#       "name": "Menu A",
#       "categories": [
#             {
#             "name": "Kebabs",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Burgers",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Pasta",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Appetizers",
#             "description": "blah blah blah"
#             }
#         ]
#     },
#     {
#       "name": "Menu B",
#       "categories": [
#             {
#             "name": "Kebabs",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Burgers",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Pasta",
#             "description": "blah blah blah"
#             },
#             {
#             "name": "Appetizers",
#             "description": "blah blah blah"
#             }
#         ]
#       }
#     ]
# }

my $json = Chilkat2::JsonObject->new;
my $success = $json->LoadFile('qa_data/json/menus.json');
if (!$success) {
    print $json->LastErrorText, "\n";
    exit;
}

# Find Menu B.
my $menu = $json->FindRecord('menus', 'name', 'Menu B', 1);
# assume menu is found..

# Get the categories array, and then find the index of the "Pasta" menu category.
my $catArr = $menu->ArrayOf('categories');
# Assume it is found..

# Find the object where the name of the JSON member is "name", and the value is "Pasta"
my $index = $catArr->FindObject('name', 'Pasta', 1);
if ($index < 0) {
    print "Pasta not found.\n";
} else {
    # Delete the "Pasta" category record from Menu B
    $success = $catArr->DeleteAt($index);
    # Assume OK..
}

# Examine the JSON to see if it worked as expected..
$json->EmitCompact(0);
print $json->Emit(), "\n";