lasker-2.2.3/bots/mamer/bin/cleaner.pl

   1 #!/usr/local/bin/perl
   2
   3 @dirList = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m",
   4             "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
   5
   6 foreach $i (@dirList) {
   7     opendir(THISDIR, "/Users/mlong/mamer/players/$i");
   8     @tempdir = sort(readdir(THISDIR));
   9     close(THISDIR);
  10
  11     foreach $file (@tempdir) {
  12 ##      print ("FILE = :$file:\n");
  13         if($file !~ /\.$/) {
  14             if($file =~ /\s*/) {
  15                 print("unlink :$file :\n");
  16                 unlink("/Users/mlong/mamer/players/$i/$file");
  17             }
  18         }
  19     }
  20 }