Perl Requires Chilkat v11.1.0+

Create more Complex JSON Document

See more JSON Examples

Sample code to create the following JSON document:

    {  
        "Title": "The Cuckoo's Calling",  
        "Author": "Robert Galbraith",  
        "Genre": "classic crime novel",  
        "Detail": {  
            "Publisher": "Little Brown",  
            "Publication_Year": 2013,  
            "ISBN-13": 9781408704004,  
            "Language": "English",  
            "Pages": 494  
        },  
        "Price": [  
            {  
                "type": "Hardcover",  
                "price": 16.65  
            },  
            {  
                "type": "Kindle Edition",  
                "price": 7.00  
            }  
        ]  
    }  

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

# The only reason for failure in the following lines of code would be an out-of-memory condition..

# An index value of -1 is used to append at the end.
my $index = -1;

my $success = $json->AddStringAt(-1, 'Title', 'The Cuckoo\'s Calling');
$success = $json->AddStringAt(-1, 'Author', 'Robert Galbraith');
$success = $json->AddStringAt(-1, 'Genre', 'classic crime novel');

# Let's create the Detail JSON object:
my $detail = Chilkat2::JsonObject->new;
$json->AppendObject2('Detail', $detail);

$success = $detail->AddStringAt(-1, 'Publisher', 'Little Brown');
$success = $detail->AddIntAt(-1, 'Publication_Year', 2013);
$success = $detail->AddNumberAt(-1, 'ISBN-13', '9781408704004');
$success = $detail->AddStringAt(-1, 'Language', 'English');
$success = $detail->AddIntAt(-1, 'Pages', 494);

# Add the array for Price
my $aPrice = Chilkat2::JsonArray->new;
$json->AppendArray2('Price', $aPrice);

# Entry in aPrice will be a JSON object.

# Append a new/empty ojbect to the end of the aPrice array.
my $priceObj = Chilkat2::JsonObject->new;

$aPrice->AddObjectAt2(-1, $priceObj);
$success = $priceObj->AddStringAt(-1, 'type', 'Hardcover');
$success = $priceObj->AddNumberAt(-1, 'price', '16.65');

$aPrice->AddObjectAt2(-1, $priceObj);
$success = $priceObj->AddStringAt(-1, 'type', 'Kindle Edition');
$success = $priceObj->AddNumberAt(-1, 'price', '7.00');

$json->EmitCompact(0);
print $json->Emit(), "\n";