http://qs1969.pair.com?node_id=40238


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/