uuse strict;
use warnings;
sub PrintHash{
  my ($href, $indent_text, $level) = @_;
  $level ||= 0;
  while (my ($k, $v) = each(%$href)) {
  print +("\t" x $level), "${indent_text}$k = ";
    if (not ref $v){ #SCALAR 
       print "$v\n";
    }elsif (ref $v eq "HASH"){
       print "\{\n";
       PrintHash($v,"",$level+1);
       print +("\t" x $level),"}\n";
    }elsif (ref $v eq "ARRAY"){
       local $,=", ";
       print "\@(@$v)\n";
       # Could do a better job by writing sub PrintArrayRef{}
    }else{
       die "ERROR: Invalid type:",ref($v),"\n";
    }
   }
}

PrintHash({Uno=>1, Dos=>2, Tres=>3, Cuatro=>[1,2,3,4], Cinco=>{otro=>9
+9,rojo=>'Red'}},
            "Error codes:",
            0);

[download]
Output: 
> perl .\printhash.pl
Error codes:Cuatro = @(1 2 3 4)
Error codes:Uno = 1
Error codes:Dos = 2
Error codes:Tres = 3
Error codes:Cinco = {
        otro = 99
        rojo = Red
}

[download]
If you have specific questions abut a specific line of code, go ahead and post it here.

                "Avoid strange women and temporary variables."

In reply to Re: trying to print hashes with mixed results by NetWallah
in thread trying to print hashes with mixed results by merrittr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.