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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

my $success = $json->Load($jsonStr);
if (!$success) {
    print $json->LastErrorText, "\n";
    exit;
}

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

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

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