Simple demo use of Perl's JSON-module

json-demo.pl

#!/usr/bin/env perl

use JSON;
use Data::Dumper;

my $hash = {
    foo => 'bar',
    baz => {
        'noch eine' => 'hash map',
        'abc' => 42
    },
    qux => [
        'auch',
        'arrays',
        'funktionieren'
    ]
};

my $json = JSON->new;

print "Perl-Datenstruktur:\n";
print Dumper($hash);
print "\n\n";

print "JSON-String ohne pretty-printing:\n";
print $json->encode($hash);
print "\n\n";

print "Mit pretty-printing (menschenlesbarer, größer):\n";
$json->pretty;
print $json->encode($hash);
print "\n\n";

print "Dekodierung:\n";
my $encoded_json = $json->encode($hash);
my $decoded_json = $json->decode($encoded_json);
print Dumper($decoded_json);
print "\n\n";