Ok folks, here is the script that we used. It is the same as what Chuck sent to me
but I had to figure out how to use the directories in the find function.
I also added the file output so that we could generate the report for upper
management.
#!/usr/bin/perl -w
use File::Find;
open (DIROUT, ">dirlist.out") || die "$!";
@ARGV=('h:/') unless @ARGV;
my %exts;
find \&sum_files, @ARGV;
sub sum_files {
return if (-d $_);
my @pieces = split (/\./);
my $ext=scalar(@pieces)> 1 ? pop(@pieces) : 'NO EXTENSION';
$exts{$ext} += -s;
}
select DIROUT;
for (sort keys %exts) {
print "$_=>$exts{$_} bytes\n";
}
Enjoy!
Thanks for the help!
Craig
>>> Jim Angstadt <[EMAIL PROTECTED]> 01/21/02 04:20PM >>>
--- Craig Sharp <[EMAIL PROTECTED]> wrote:
> Jim,
>
> Thanks for the updated info. I actually received a
> script from another user in the group that was able
> to get the information right away. I got the script
> prior to receiving yours. I will send you the
> script if you would like to have a look. I still am
> planning to review your script and try to apply it
> to the same question as time permits.
> By the way, the report ended up with over 5000
> extenstions for our management to look at.
>
> This sure has been interesting!
>
> I will let you know once I have disected and
> digested your script :-).
<snip>
Hi Craig,
Yes, I would be interested in seeing other scripts
that solve the problem. Thanks.
---
Jim
__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
