The code above is a cumbersome, and become more tedious as you have more complex structure, but since you asked for hint :-) And here's another hint, if you feel a bit brave you can implement it with recursive subroutine. The last hint, the one I recommend the most, is to transform %tree_Hash into some array of directories and ask File::Path to create the directory structure for you.for my $path (keys %tree_Hash) { # mkdir $path my $sub = $tree_Hash{$path}; if (defined $sub and ref $sub) { for my $spath (%$sub) { # mkdir $sub/$spath my $subsubpath = $sub->{$spath}; .... and so on } } }
Now, please do your part a little bit. Feel free to comeback and ask again if you find some problem. Good luck, megaurav2002.
Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!
In reply to Re^4: how to build directory
by naikonta
in thread how to build directory
by megaurav2002
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |