> Dan Muey wrote:
> >
> > Thanks. What I really want to do is avoid system commands
> completely.
> > I could always traverse the directory adding the size of each file
> > together and do that all in Perl with no system commands
> but I figured
> > there'd already be a Module or something like this, so I
> want to do it
> > that way. Somthign like:
>
> You mean something like (untested):
>
> use File::Find;
>
> my $dir = '/some/dir';
> my $size;
>
> find( sub { -f and ( $size += -s _ ) }, $dir );
>
> print "Directory '$dir' contains $size bytes\n";
>
>
Awesome John! Works splendedly, this is exactly what I needed!
>
> John
> --
> use Perl;
> program
> fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
