Does anyone know why the following code does not work?
---------
use File::Find;
find (\&wanted, 'C:/');
sub wanted {
if ( -d && /dllcache/i || /System Volume Information/i ) {
$File::Find::prune = 1;
} else {
next if ( -d || ! /exe$/ && ! /com$/);
print "$File::Find::name\n";
}
}
-------
When this runs, it just immediately exits, but if I replace the search
directory to something like "C://" or "C:/.", it will work, but I will get
output in the form of ...
C://WINDOWS/system32/loginw32.exe
I am looking to get output in the form of...
C:/Windows/System32/loginw32.exe
Also, does anyone know of a faster way of inventorying all files on a
NT/2K/XP based system? I'm currently using the File module, but wasnt sure
if there was a faster way to do this in Perl.
Thanks.
Len.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
