Re: [MacPerl] -s File Test Operator

[Chris Nandor <pudge@pobox.com>]

At 09.13 -0400 1998.07.21, Paul J. Schinder wrote:
>On Tue, Jul 21, 1998 at 08:58:19AM -0400, Chris Nandor wrote:
>} At 08.03 -0400 1998.07.21, Paul J. Schinder wrote:
>} >On the other hand, it would be nice if the resource fork size were a
>} >little easier to get.  Maybe one of the - operators that don't have any
>} >meaning under MacOS can be pressed into service (-r?).
>}
>} What about a module/pragma that overloaded -s?
>
>That would work, but it might get a little clunky if I wanted both
>data and resource.  On the other hand, using one of the
>meaningless-on-MacOS -op might cause weird unintentional breakage of
>scripts from elsewhere.  So maybe a pragma would be best.

Maybe even a simple set of functions.

  use Mac::Files qw(:size);
  $file = 'Shuck Manual';
  $data_fork_size = data_size($file);
  $res_fork_size  = res_size($file);
  $total_size     = total_size($file);

Just some semi-random thoughts.

--
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 mac-perl-request@iis.ee.ethz.ch