Re: [MacPerl] PC file names

[pudge@pobox.com (Chris Nandor)]

At 20.19 1998.02.13, Larry Prall wrote:
>Chris Nandor wrote (2/13/98 3:52 PM):
>>I have a PPC 604e/180, PC Exchange (without which I could not mount said PC
>>floppy), and I can directly access a file on the floppy with MacPerl (I
>>read its contents and print them out), but I cannot read the directory of
>>said floppy with MacPerl (opendir() does not fail, but readdir() returns
>>nothing).
>
>The following seems to work fine for me when saved as a droplet (IIfx,
>7.6.1, PC Exchange):

I tried it again and it worked.

  #!perl -wl
  opendir(D, $ARGV[0]) || die($!);
  print $ARGV[0];
  print join("\n", readdir(D));
  closedir(D) || die($!);

This failed before and works now.  Hm.  I will try it again every once in
awhile to see if it fails.

--
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