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";
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
