Printing an Hash

[anshumangoyal]

I have a hash which has around 20 Key Value Pairs. I want to print these values in a file and on screen in such a way that the indentation is not lost. I want to print it in mysql query output format. The Keys will be name of parameter and below it the value of the key has to be printed. I tried with sprintf but it's not a success. The keys length are different and so it he value length. What is the best possible solution?

[BillKSmith]

Consider using the module Data::Dumper

[frozenwithjoy]

or Data::Printer (my fave because you have to type less, you get fancy colors, and indices are included in the output)

[blue_cowdawg]

               printf "%s\n", join("\n",map { $_ . " " . $hash{$_} }
                            sort keys %hash);

[suaveant]

Why don't you type up an example of how you want the data to look, that'd help a lot in pointing you to a solution.

[Rudolf]

This should keep all of your indentation, though Im not aware of how you want it printed out, so I just put each key and value on a newline

use v5.14;

my %hash = ('   key' => 'value  ',"\tkey2" => "value2\t");

open(FILE,'>>','filename') or die "$!";

while ( my($key, $value ) = each(%hash)){
     print "$key\n$value\n";
     print FILE "$key\n$value\n";
}

close FILE;