traverse a hash - Perl Snipplr Social Repository

Revision: 45689

at May 5, 2011 10:42 by alfirth

Initial Code

sub make_dirs {
  my ($href, $path) = @_; 
  foreach (keys %$href) {
    make_dirs($href->{$_}, "$path$_/");
  }
  print $path; 
}

Initial URL

Initial Description

Initial Title

traverse a hash

Initial Tags

Initial Language

Perl