Re: [MacPerl] Finding file size

[Chris Nandor <pudge@pobox.com>]

At 20.47 -0400 1999.07.03, Todd Richmond wrote:
>How do I find the size of a Mac file, including the resource fork,
>with MacPerl? It appears that the size that stat() returns is the
>size of the file minus the resource fork -> when you zap the resource
>fork on a file,  stat() returns the same size as the Finder.

Unfortunately not in the book, the code for this IS in the book's errata.

    http://pudge.net/macperl/macperl_errata.txt

Anyway, here it is:

    use Mac::Files;
    my $cat  = FSpGetCatInfo($file);
    my $size = $cat->ioFlLgLen() + $cat->ioFlRLgLen();

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org