http://qs321.pair.com?node_id=359249

Public Scratchpad

Download, Select Code To D/L

---

%goodfiles = (
  "MODEL\.CON" => "1",
  "ZMD\.IN" => "1",
  "SCP\.CON" => "1",
  "MDLUPDT.DAT" => "1",
  "MKMDL.ERR" => "1",

  );

opendir (DIR, ".");
 @files = readdir (DIR);
 foreach $file (@files) {
   print $file;
   next if ($file =~ /^\./);
   next if -d "$file";
   $file =~ s/\s*$//;
   $file = "\U$file";
   next if ($goodfiles{$file});
   print $file;
   $garbage{$file}++; 
}
closedir (DIR);
[download]