comment on

This version is slightly more compact by using map to navigate through the tree. A wrong path will return undef. I use the grep because so you can add empty "/" at the beginning or end of the filename, at your will.

use Data::Dumper;

$VAR1 = {
  'misc' => {},
  'docs' => {
    'howtos' => {
      'email' => {
        'index.html' => {
          'date' => '21-1-2004',
          'size' => '691'
        }
      },
      'ftp' => {},
      'ssh' => {}
    }
  }
};

$fs = "/docs/howtos/email/";
$v = $VAR1;

# this is the actual processing
map { $v = $v->{$_} } grep { length > 0 } split m./., $fs ;

print Dumper $v;
[download]

Enjoy!

Note. I have been reading Paul Graham's On Lisp lately, does it show? :)

Note: I submitted this comment before seeing's BrowserUk's, looks like we had the same idea.

In reply to Re: Building dynamic nested hash references with map by l3nz
in thread Building dynamic nested hash references by ryan

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks