(Perl) Find and Delete Object from JSON Array

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

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

use chilkat();

# 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"
# 			}
# 		]
# 	  }
# 	]
# }

$json = chilkat::CkJsonObject->new();
$success = $json->LoadFile("qa_data/json/menus.json");
if ($success == 0) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

# Find Menu B.
# menu is a JsonObject
$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.
# catArr is a JsonArray
$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"
$index = $catArr->FindObject("name","Pasta",1);
if ($index < 0) {
    print "Pasta not found." . "\r\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->put_EmitCompact(0);
print $json->emit() . "\r\n";