Re: [MacPerl] recursive dir script

[Joel Feinstein <jff@feinst.demon.co.uk>]

>>perhaps someone has a "safer" version of this script?
>>
>> Joel Feinstein
>
>MacPerl:lib:find.pl
>
>works great. check it out.
>
>-jon

Thanks for suggesting find.pl. I must have a proper look through that library!
The following droplet does approximately what I want:

#!perl
require "find.pl";
open (OUTPUT,">latest output list");
for (@ARGV){
        print "I am now looking at $_\n";
        &find($_);
}
sub wanted {
        print $name,"\n";
        print OUTPUT "$name\n";
}

BUT this droplet crashes just as my original did when faced with e.g.
the cover CD from MacFormat 35. There is a folder on this CD with a file in
it which appears to have the empty file name, and this fools &find just as
it fooled my own script! Foldernames with increasing numbers of colons
appear.

I didn't know it was possible to create a file with the name "".

Joel Feinstein