>>>>> "Tim" == Tim Johnson <[EMAIL PROTECTED]> writes:
Tim> find(sub{ -f and ( $size += -s ) }, $dir ); Beware that -s has only a rough correlation with the actual disk a file takes. You want (stat)[12] for that. The -s number will be far too huge for holey files (blocks aren't allocated), and a little too low for large files (indirect blocks). -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>