in reply to direcotories and spaced used
Is there any reason you guys decided not to use the File::Find module?
Proof of concept:
#!/usr/bin/perl -w use strict; use File::Find; @ARGV = ('.') unless @ARGV; my $sum = 0; find sub { $sum += -s }, @ARGV; print "@ARGV contains $sum bytes\n";
This will sum up the arguments and will print them back to you.
I don't know if merlyn is still around, but he used to go nuts when people did recursive stuff like this.
J. J. Horner Linux, Perl, Apache, Stronghold, Unix jhorner@knoxlug.org http://www.knoxlug.org/
In Section
Seekers of Perl Wisdom