Perl

Pretty Print JSON (Formatter, Beautifier)

See more JSON Examples

Demonstrates how to emit JSON in a pretty, human-readable format with indenting of nested arrays and objects. Perl

use chilkat();

$success = 0;

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

$jsonStr = "{\"name\": \"donut\",\"image\":{\"fname\": \"donut.jpg\",\"w\": 200,\"h\": 200},\"thumbnail\":{\"fname\": \"donutThumb.jpg\",\"w\": 32,\"h\": 32}}";

$success = $json->Load($jsonStr);
if ($success != 1) {
    print $json->lastErrorText() . "\r\n";
    exit;
}

# To pretty-print, set the EmitCompact property equal to 0
$json->put_EmitCompact(0);

# If bare-LF line endings are desired, turn off EmitCrLf
# Otherwise CRLF line endings are emitted.
$json->put_EmitCrLf(0);

# Emit the formatted JSON:
print $json->emit() . "\r\n";