Eduard:
I am in need of the same thing. Just by coincidence I was thinking 
"wouldn't it be nice if...?" and Douglas's reply to your mail popped 
up.

One can easily use the File::Find t collect all the directories and 
files underneath and build a nice HTML table with indentation. 
However I would like to add collapse/expand actions using 
Javascript, which I have seen on a site. But this was cumbersome. 
If no one has done it in Perl (which I seriously doubt!) I can start 
with some coding. I would be very appreciative if someone can tell 
me how to do the collapse/expand... so I do not have to start from 
first principles.
Thanks...
Ranga Nathan
Reliance Technology Consultants Inc.

On 22 May 00, at 18:15, Douglas Wilson wrote:

Date sent:              Mon, 22 May 2000 18:15:57
Subject:                Re: Tree-like data structures in Perl
To:                     "Perl-Win32-Users Mailing List" 
<[EMAIL PROTECTED]>
From:                   "Douglas Wilson" <[EMAIL PROTECTED]>
Send reply to:          "Douglas Wilson" <[EMAIL PROTECTED]>

> On 05/22/00, "Eduard Pandele <[EMAIL PROTECTED]>" wrote:
> 
> > This is my problem : I have to build a hierarchical menu in HTML from a
> > tree of directories.
> > Let's say I have this directory structure :
> > 
> > root/
> > root/one
> > root/one/a
> > root/one/b
> > root/two
> > root/three
> > root/three/a
> > 
> > I must get a series of html documents which should allow me to "walk"
> > through the directories structure :
> > 
> > index.html which contains the three links to one, two and three
> > 
> > one.html which contains something like
> > one
> >     - a
> >     - b
> > two
> > three
> 
> I don't quite get what you're after, but maybe File::Find
> would help. It will traverse and cd (if desired) to every directory
> for you. Once in the directory, you could use
> opendir/readdir/closedir to read all the directories
> and/or files in the current directory.
> 
> HTH,
> Douglas Wilson
> 
> ---
> You are currently subscribed to perl-win32-users as: [EMAIL PROTECTED]
> To unsubscribe, forward this message to
>          [EMAIL PROTECTED]
> For non-automated Mailing List support, send email to  
>          [EMAIL PROTECTED]
> 
> 



---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]

Reply via email to