Pretty Print Dumper for Hash of Array

[Anonymous Monk]

Respectable Monks,
Actually, This is a continuation of my earlier posting. Now with this code,

perl -MData::Dumper -e '
$Data::Dumper::Indent = 0; 
$hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]}; 
print Dumper $hoa; print "\n";'

How can I modify it to create:

$VAR1 = {
        'c' => [2,0],
        'a' => [1,2],
        'b' => [1,3]
       };

Basically my intention is to make the indentation=0 only apply for the array. Thanks.

[svenXY]

Hi,
as far as I can see it in the manpages for Data::Dumper, it is not possible to do it like this.
You might have to write your own pretty-printer for that. Something along the lines of:

#!/usr/bin/perl
use strict;
use warnings;
my $hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]}; 

foreach (keys %{$hoa}) {
    print "\t'$_' => [" . join(',', @{$hoa->{$_}}) . "],\n";
}

prints:

    'c' => [2,0],
    'a' => [1,2],
    'b' => [1,3],

Regards,
svenXY

[g0n]

if this is closer to what you want:

$HASH1 = {
           a => [
                  1,
                  2
                ],
           b => [
                  1,
                  3
                ],
           c => [
                  2,
                  0
                ]
         };

I used Data::Dump::Streamer to output that, with the following code:

use Data::Dump::Streamer;
$hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]};
print Dump($hoa);
 print "\n";

[davidrw]

You can (safely i think) clean the Data::Dumper output with regex's .. this is pretty close to what you want (might be easier though to split $s into an @lines array so that the first and last lines weren't touched by the substitutions...) :

use Data::Dumper;
use strict;
use warnings;
my $hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]};
my $s = Dumper $hoa;
$s =~ s/^\s+//mg;
$s =~ s/(?<!(\],| {))[\r\n]//sg;
print $s; print "\n";

[philcrow]

You could use Data::HTMLDumper. I know that sounds odd, but it uses a grammar to parse Data::Dumper output. Instead of hard coding actions, it calls methods on an object whenever a production matches. By making the proper class to use in place of Data::HTMLDumper::Output, you can get pretty much any output you like. I like the module, but then I wrote it.

Phil