ines.
Thanks a lot for all yours and David's precious time !
-Praveen
-Original Message-
From: Mark Goland [mailto:[EMAIL PROTECTED]]
Sent: Monday, 30 December 2002 2:00 PM
To: Rajendra Babu, Praveen
Cc: perl
Subject: Re: Directory and its sub-directory disk usage: Windows '9
unless you want to recurse the tree this will do it,
unless(opendir local $TMP,$ARGV[0] ){
print "-invalid directory-\n";
print "USAGE:\n\t\t$0 directory to parse";
exit 1;
}
chomp (@FILES=`dir /s /b $ARGV[0]`);
for ( @FILES ){
( $Size+= (stat $_)[7] );
}
print "TOT
Use File::Find and from it's examples you should be able to do all
that you need from within Perl.
Wags ;)
-Original Message-
From: Rajendra Babu, Praveen
[mailto:[EMAIL PROTECTED]]
Sent: Sunday, December 29, 2002 16:08
To: '[EMAIL PROTECTED]'
Subject: Directory and its sub-direct
