Perl

Create JSON Document

See more JSON Examples

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

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 $success = $json->AddStringAt(-1, 'Title', 'Pan\'s Labyrinth');
$success = $json->AddStringAt(-1, 'Director', 'Guillermo del Toro');
$success = $json->AddStringAt(-1, 'Original_Title', 'El laberinto del fauno');
$success = $json->AddIntAt(-1, 'Year_Released', 2006);

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