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 "Page Title";
#print Dumper($our_hash);
sub traverse_hash {
my $ahash = $_[0];
my $r;
print "\n";
for (keys %$ahash) {
$r = $ahash->{$_};
print "- $_\n";
traverse_hash($r)
if (ref $r eq 'HASH');
}
print "
";
}
$DB::single = 1;
print traverse_hash($our_hash);
$DB::single = 1;
print "";
####
Content-Type: text/html; charset=ISO-8859-1
Page Title
- Dogs
- Cows
- Green
- Brown
- Strawberry
- Orange
1
####
# Under Construction