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