Re: [MacPerl] Final step (?)

[pudge@pobox.com (Chris Nandor)]

At 16.54 6/26/97, Thomas R. Kimpton wrote:
>Oops sent a version of this, before it was done, to Strider,
>via email... here's what I wound up with:

Here's another version:

#!perl
use File::Find;
$dir    = 'PowerPudgeII:WP/DTP:BBEdit 4.0 Ä:BBEdit Temp';
$wanted = sub {$count += -s $File::Find::name if (!-d $File::Find::name)};
find($wanted,$dir);
print $count;
__END__

Now, I have not been able yet to get a consistent count of file size,
between Thomas' last version and this version and the Finder's Get Info.
So substiute your favorite method in $wanted.

FYI:
        Thomas' version  : 1,466,592
        This version     : 1,446,719
        Finder's Get Info: 1,445,265

--
Chris Nandor                 pudge@pobox.com                 http://pudge.net/
%PGPKey=('B76E72AD',[1024,'08 24 09 0B CE 73 CA 10  1F F7 7F 13 81 80 B6 B6'])



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch