Here's the thing. I've written a script to recurse through a
directory tree and find all the changed files therein. I've got a db
file to hold checksums and so forth, but that's beside the point.
I'm using File::Find to do the recursion for me, but I can't seem to
figure out how to keep it from recursing through directories I don't
want. For example, I don't want stuff from dotdirectories or from
browser caches. I have been trying to use tests to ferret that out,
but the script seems to read the files anyway.
<snip>
if (-s
&& -f
&& $File::Find::dir !~ /[Cc]ache/
&& $File::Find::dir !~ /\/\.*\//) {
print "DEBUG: File found is : $_\n";
open(FILE, $_) or print REPORT "Could not open
$File::Find::name: $!\n";
binmode(FILE);
my $digest=Digest::MD5->new->addfile(*FILE)->hexdigest;
close FILE;
Am I barking up the wrong tree? Any suggestion for other useful
modules?
<snip>
Thanks,
John
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
