[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] MAC Filesystem Help



At 10.37 98.02.06, Frederick Bruckman wrote:
>use Mac::MoreFiles;
>
>foreach (@ARGV) { FSpIterateDirectory($_, 0, myDoSpec, ""); }
>
>sub myDoSpec
>{
>  $fss = shift;
>  $_ = FSpGetCatInfo($fss)->ioNamePtr;
>  $_ =~ tr/A-Z/a-z/;
>  print $_, ", ", $fss, "\n";
>  return 0;
>}

By way of contrast, a more universal way would be to use the File::Find
module that comes with all versions of Perl.  it works similarly to
FSpIterateDirectory().

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==               New Book:  MacPerl: Power and Ease               ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



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