How to create recursive hash of hash ? (With unlimited deep)

by

I strongly recommend using an existing solution such as Data::Diver.

use Data::Diver qw( DiveVal );

my @keys = map "level$_", 1 .. 3;

my $branch = {};
DiveVal($branch, map \$_, @keys) = 'leaf';
  -or-
my %branch;
DiveVal(\%branch, map \$_, @keys) = 'leaf';

Obviously, it can be done without module too.

sub DiveVal :lvalue {
   my $p = \shift;
   $p = \( $$p->{$_} ) for @_;
   $$p
}

my @keys = map "level$_", 1 .. 3;

my $branch;
DiveVal($branch, @keys) = 'leaf';
  -or-
my %branch;
DiveVal(\%branch, @keys) = 'leaf';

How my DiveVal works:

Pre-loop:          $p references $branch
After loop pass 0: $p references $branch->{level1}
After loop pass 1: $p references $branch->{level1}{level2}
After loop pass 2: $p references $branch->{level1}{level2}{level3}
Returned:          $branch->{level1}{level2}{level3}

The extra level of indirection has many benefits.

  • It removes the need to treat the last key specially.
  • It removes the need to create the hash before it’s dereferenced.
  • It removes the need for the root to be a reference to a hash. Instead, any scalar can be the root, even an undefined one.
  • It makes it easy to extend DiveVal to support mixed array/hash structures.

More Related Contents:

  1. Why do hash keys have different order when printing?
  2. How can i do this in perl, shortcut truthtable [closed]
  3. How to retrieve the values of required keys in Perl [closed]
  4. Perl: Meaning of double squared brackets after a string?
  5. What does this HTML::Parser() code do in Perl? [closed]
  6. Why use strict and warnings?
  7. Why does modern Perl avoid UTF-8 by default?
  8. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  9. What’s the difference between Perl’s backticks, system, and exec?
  10. How can I parse dates and convert time zones in Perl?
  11. Which one is good practice, a lexical filehandle or a typeglob?
  12. How do I tell if a variable has a numeric value in Perl?
  13. Perl memory usage profiling and leak detection?
  14. How should I use the “my” keyword in Perl?
  15. Global symbol requires explicit package name
  16. How do I include functions from another file in my Perl script?
  17. How can I check if a file exists in Perl?
  18. Use of ‘use utf8;’ gives me ‘Wide character in print’
  19. How can I start an interactive console for Perl?
  20. What does =~ do in Perl? [closed]
  21. Using my with parentheses and only one variable
  22. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  23. Do you use an exception class in your Perl programs? Why or why not?
  24. How can I extract text from a PDF file in Perl?
  25. Local and Global variables in perl
  26. What do you get if you evaluate a hash in scalar context?
  27. Can a Perl script install its own CPAN dependencies?
  28. How do I retrieve the terminal width in Perl?
  29. How to make DateTime::Duration output only in days?
  30. How do I tell CPAN to install all dependencies?

Leave a Comment