Decoding JSON in Perl. JSON output as multiple lines

Question

How can I use perl to process JSON, so that instead of one line several lines are output as a structure?

my $json_string = '{"status":"success","answer":{"status":"success","result":{"full_fqdn":"example.com","result":"blablabla","php_version":"8.0","cgi":"disabled"}}}';

I want to get a result like the one on this output:

"status": "success",
"answer": {
    "status": "success",
    "result": {
        "full_fqdn": "example.com",
        "result": "blablabla",
        "php_version": "8.0",
        "cgi": "disabled"
    }
}

I don't quite understand the proper use of JSON to convert the output this way. Thank you!

I often just let the Perl module do whatever it wants and pretty print it later with something like jq -r . — brian d foy
– brian d foy, Commented Jan 30, 2022 at 0:15

choroba · Accepted Answer · 2022-01-29 21:17:36Z

3

JSON::PP is a core module. The pretty method enables the indenting and spaces around colons. You can control the details with indent, indent_length, space_before, and space_after.

#!/usr/bin/perl
use warnings;
use strict;

use JSON::PP;

my $json_string = '{"status":"success","answer":{"status":"success","result":{"full_fqdn":"example.com","result":"blablabla","php_version":"8.0","cgi":"disabled"}}}';

my $j = 'JSON::PP'->new->pretty;
print $j->encode($j->decode($json_string));

If you need faster processing, install Cpanel::JSON::XS from CPAN.

edited Jan 29, 2022 at 21:17

answered Jan 29, 2022 at 21:12

choroba

245k27 gold badges221 silver badges304 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Decoding JSON in Perl. JSON output as multiple lines

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related