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

Re: [MacPerl] Recursive directory descent on Mac?



>Anyone have recursive directory descent code which will work on a Mac?

File::Find (Camel2, p. 439) works on a Mac and everything else:

#!/perl
use File::Find;
&find(\&print_puds, "Warcraft II CD:");
sub print_puds
{
   print "$File::Find::name\n" if $_ =~ /\.pud$/;
}

I suspect this will also answer your earlier question about reviewing a 
volumeful of files and printing Win-illegal names.

--
 Jamie McCarthy          http://www.absence.prismatix.com/jamie/
 jamie@nizkor.org     Director of Operations, The Nizkor Project
                                          http://www.nizkor.org/