| Category: | Win32 stuff |
| Author/Contact Info | cLive ;-) - clive@brandx.net |
| Description: | Finds and removes those nasty "index.dat" files that IE hide on your Windows machine. For more information, see this article. |
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $c=0;
my @files = ();
# find the files
print "Processing\n";
find(\&wanted, "/");
# offer for delete:
for (@files) {
print "\nDelete $_?(y/n)\n";
my $r = <STDIN>;
if ($r =~ /y/i) {
unlink $_;
print "FILE DELETED!\n";
}
}
sub wanted {
print '.' if !$c; $c++;$c%=1000;
push @files, $File::Find::name if (/index.dat/);
}
|
|
Back to
Code Catacombs