doc/tools/find-junkFiles

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use File::Find ();
   4
   5 # -----------------------------------------------------------------------------
   6 #
   7 # Script
   8 #     find-junkFiles
   9 #
  10 # Description
  11 #     Search for "junk" files left over from editor, core, CVS, etc.
  12 #
  13 #     - print filename only
  14 #
  15 # -----------------------------------------------------------------------------
  16
  17 sub wanted {
  18     return unless -f $_;
  19
  20     if (
  21         m{^\.?.+~$} ## editor backup
  22         or m{^\#.+\#$}  ## editor autosave
  23         or m{^\.\#.+$}  ## cvs replace update (eg, ".#test.c.1.3")
  24         or m{^core(\.\d+)?$} ## core dump
  25     ) {
  26         print "$File::Find::name\n";
  27     }
  28 }
  29
  30
  31 ## Traverse desired filesystems
  32 for my $dir (@ARGV) {
  33     no warnings 'File::Find';
  34     warn "(**) checking '$dir' ...\n";
  35     File::Find::find( { wanted => \&wanted }, $dir );
  36 }
  37