Based on Skeeve's hash of hash structure:
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
}
}
}
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.
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!
| [reply]
[d/l]
[select] |