Latest and greatest to search local dirve.
use File::Find;
use LWP::Simple; {
open (LOG,">>log.file") || die "can't open log file $!";
find(sub{/\.pst$/},qw(C: D: E:));
print LOG "$File::Find::name\n";
}
close log
This is what I have so far, but it's not working.
use File::Find;
use LWP::Simple;
open (LOG,">>log.file") || die "can't open log file $!";
find(sub{/\.pst$/ )},qw(C: D: E:)};
print LOG "$File::Find::name\n";
}
close log
I'm trying to write a script to search a bunch of machines, to find all .pst files and report back the machine name and , name of file and size of the file. I don't have a clue how to start, can someone help or point me in the right direction....Lamar
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.