[vox-tech] Perl help requested

[Jim Angstadt]

--- Richard Crawford <rscrawford@mossroot.com>
wrote:
> 
> Peter Jay Salzman said:
> > On Tue 10 Feb 04,  9:56 AM, Richard Crawford
> <rscrawford@mossroot.com>
> > said:
> >> I'm trying to write a Perl application that
> will go through a
> >> directory and give the amount of space used
> by each directory,
> >> including each subdirectory.  So, for
> example, if myDirectory1 has
> >> three files totalling 150K and two
> subdirectories (mySubDirectoryA,
> >> with 20K of files, and mySubDirectoryB with
> 50K of files), I'd like to
> >> see output like this:
> >>
> >> DIRECTORY         SIZE
> >> ======================
> >> myDirectory1      220K
> >>
> >> I'm stuck at the first line. Any
> suggestions?
> >
> > is this a programming exercise or do you just
> want something to give you
> > the numbers?
> 
> A programming exercise.  It's something we'll
> be going back to again and
> again.  I'm having trouble installing the
> FileSys modules, which is making
> all of this unnecessarily difficult.

<snip>

File::Find comes to mind.  It is a handy way to
walk a tree, doing whatever you want, at each
file in the tree.

There are probably other better, faster ways but
if you plan on making a project of this, then
this approach might provide a little structure to
build on.

Just a thought,
Jim



__________________________________
Do you Yahoo!?
Yahoo! Finance: Get your refund fast by filing online.
http://taxes.yahoo.com/filing.html