sub print_hash
{
my ( $prefix, $href ) = @_;
while ( my ( $key, $val ) = each %$href ) {
{
print_hash( "$prefix$key\t", $val );
}
else
{
print "$prefix$key\t$val\n"; }
}
}
my %hh = (
key1 => {
key2 => 'abc',
key3 => {
keymany => 'value'
}
},
key11 => {
key22 => 'def',
}
);
print_hash( "", \%hh );
c3ViIHByaW50X2hhc2gKewoJbXkgKCAkcHJlZml4LCAkaHJlZiApID0gQF87CgoJd2hpbGUgKCBteSAoICRrZXksICR2YWwgKSA9IGVhY2ggJSRocmVmICkKCXsKCQlpZiAoIHJlZiAkdmFsICkKCQl7CgkJCXByaW50X2hhc2goICIkcHJlZml4JGtleVx0IiwgJHZhbCApOwoJCX0KCQllbHNlCgkJewoJCQlwcmludCAiJHByZWZpeCRrZXlcdCR2YWxcbiI7CgkJfQoJfQp9CgpteSAlaGggPSAoCglrZXkxID0+IHsKCQlrZXkyID0+ICdhYmMnLAoJCWtleTMgPT4gewoJCQlrZXltYW55ID0+ICd2YWx1ZScKCQl9Cgl9LAoJa2V5MTEgPT4gewoJCWtleTIyID0+ICdkZWYnLAoJfQopOwoKcHJpbnRfaGFzaCggIiIsIFwlaGggKTsKCmV4aXQgMDs=