Re^2: Directory Tree Structure

[rupesh]

in reply to Re: Directory Tree Structure
in thread Directory Tree Structure

Thanks marto,
I've had a look at the module and also File::Find::Recurse.
The issue is, how do I structure the directories in the form of a tree?

Here's what I need to identify:
The main directory (done)
All the subdirectories for the main directory (done)
Each subdirectory's subdirectories (confusing, but doable)
..recuresively (uh..uh)
and then, put it all in one data structure, wherein I can identify specific points where I can start and end the  <li> and the <ul> tags.

[blazar]

I've always stuck with File::Find and never really got involved into its fancy variants. I think you can print some opening tags as a preprocess action and some closing one at postprocess time. Check the documentation: there may be alternative ways, but this should be easy enough to be left as an exercise to the reader...

[marto]

Hi rupesh,

"Each subdirectory's subdirectories (confusing, but doable)
..recuresively (uh..uh)"

Are you having difficulty doing this recursively?
As a little example look at this code below:


#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $TargetPath = $ARGV[0];
find (\&ProcessTree,$TargetPath); 

sub ProcessTree
{
print "Directory: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}


Call this script with the path you want to traverse as an argument.
Are you planning on using the HTML::Template module?
I hope the above example has given you an idea of how to tackle this.
Let me know how you get on.

Martin