Re: Hash to HTML display

You could make use of a recursive traverse subroutine like so:

use CGI;
my $cgi = new CGI;

my $our_hash = {
    'Cows' => {
        'Brown' => undef,
        'Green' => undef,
        'Strawberry' => {
            'Spotted' => undef,
            'Solid' => undef
        },
        'Orange' => undef
    },
    'Dogs' => {
        'Purple' => {
            'Spotted' => undef,
            'Solid' => undef
        }
    }
};

use Data::Dumper;

print $cgi->header();
print "<html><title>Page Title</title><body>";

#print Dumper($our_hash);

sub traverse_hash {
  my $ahash = $_[0];
  my $r;
  print "<ul>\n";
  for (keys %$ahash) {
    $r = $ahash->{$_};
    print "<li> $_\n";
    traverse_hash($r)
      if (ref $r eq 'HASH');
  }
  print "</ul>";
}

$DB::single = 1;
print traverse_hash($our_hash);
$DB::single = 1;

print "</body></html>";
[download]

Which yields this output:

Content-Type: text/html; charset=ISO-8859-1

<html><title>Page Title</title><body><ul>
<li> Dogs
<ul>
<li> Purple
<ul>
<li> Spotted
<li> Solid
</ul></ul><li> Cows
<ul>
<li> Green

<li> Brown
<li> Strawberry
<ul>
<li> Spotted
<li> Solid
</ul><li> Orange
</ul></ul>1</body></html>
[download]

Update: darn! merlyn beat me to it ;-)...

_____________________

# Under Construction
[download]

Comment on Re: Hash to HTML display Select or Download Code

Replies are listed 'Best First'.
(jeffa) 2Re: Hash to HTML display by jeffa (Bishop) on Jul 19, 2002 at 04:01 UTC
Using CGI.pm and not using ul() and li()? Here is a version that does, and i will admit that i peeked and am using merlyn's form for the recursive subroutine. Temptation-- `use CGI qw(ul li); use CGI::Pretty; sub hash2html { my $r = shift; return '' unless ref $r eq 'HASH'; return ul(li[map {$_.hash2html($r->{$_})} sort keys %$r]); }` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]

Replies are listed 'Best First'.

(jeffa) 2Re: Hash to HTML display
by jeffa (Bishop) on Jul 19, 2002 at 04:01 UTC

merlyn

use CGI qw(ul li);
use CGI::Pretty;

sub hash2html {
   my $r = shift;
   return '' unless ref $r eq 'HASH';
   return ul(li[map {$_.hash2html($r->{$_})} sort keys %$r]);
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[reply]
[d/l]