(Perl) JSON: Renaming and Deleting Members

Demonstrates renaming and deleting members. This example uses the following JSON document:

{
   "apple": "red",
   "lime": "green",
   "banana": "yellow",
   "broccoli": "green",
   "strawberry": "red"
}

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

use chilkat();

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

$success = $json->Load("{\"apple\": \"red\",\"lime\": \"green\",\"banana\": \"yellow\",\"broccoli\": \"green\",\"strawberry\": \"red\"}");
if ($success != 1) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

# Rename "lime" to "lemon".
$success = $json->Rename("lime","lemon");
# Change the color to yellow:
$success = $json->SetStringOf("lemon","yellow");

# Rename by index.  Banana is at index 2 (apple is at index 0)
$success = $json->RenameAt(2,"bartlett_pear");

# Delete broccoli by name
$success = $json->Delete("broccoli");

# Delete apple by index.  Apple is at index 0.
$success = $json->DeleteAt(0);

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";