Magnus Hjorleifsson Jr wrote: > The reason that you have to put in a double \\ instead of a single \ is > due to the \ being a reserved character and will not work unless you > have a double.
I never referred to \ - only / and \\. The reason \ has to be doubled in this case is because of the closing ' - not because of \ being reserved. For some reason 'C:/' picks up CWD for drive and 'C:\\' doesn't. > Kinda sucks but you learn to deal with it pretty quickly > > > > -----Original Message----- > From: $Bill Luebkert [mailto:[EMAIL PROTECTED]] > > Watch your operator precedences and next vs return - change c:/ to c:\\: > > use strict; > use File::Find; > > find (\&wanted, 'C:\\'); # not sure why / isn't working - uses > CWD on drive > > sub wanted { > > if (-d && (/dllcache/i || /System Volume Information/i)) { > $File::Find::prune = 1; > } else { > return if -d || (! /exe$/i && ! /com$/i); > print "$File::Find::name\n"; > } > > } > > __END__ -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
