Perl

JSON: Renaming and Deleting Members

See more JSON Examples

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

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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $success = $json->Load('{"apple": "red","lime": "green","banana": "yellow","broccoli": "green","strawberry": "red"}');
if (!$success) {
    print $json->LastErrorText, "\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->EmitCompact(0);
print $json->Emit(), "\n";