Hi,
I'm having a mental block today, so my apologies in advance!!
I'm using File::Find to recursively get all the files from a directory
structure, then splitting each $File::Find::name into an array.
What I need to do is put this into a data structure like:
$dirstruct{"mydir"}->{dir1}->{dir2}->["A.A","B.B"]
$dirstruct{"mydir"}->{dir1}->{dir3}->{dir4}->["C.C","D.D"]
$dirstruct{"mydir"}->{dir4}->{dir5}->["E.E"]
The directory listing would be:
/dir1/dir2/A.A
/dir1/dir2/B.B
/dir1/dir3/dir4/C.C
/dir1/dir3/dir4/D.D
/dir4/dir5/E.E
I know I've done this before, but I'll be damned if I can find it or
remember how I did it.
Please Help!
TIA
Andy
============================================================
"That's the metaphorical equivalent of flopping your wedding
tackle into a lion's mouth and flicking his love spuds with
a wet towel - total insanity"
============================================================
