Posted By

alfirth on 05/05/11

Tagged

Viewed 538 times

Favorited by 0 user(s)

/ Published in: Perl

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

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

Comment:

You need to login to post a comment.