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
}

Perl

use chilkat();

$success = 0;

$json = chilkat::CkJsonObject->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.
$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->put_EmitCompact(0);
print $json->emit() . "\r\n";