hopengl-test/clean.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use File::Find;
   5
   6 sub clean {
   7   my $file = $_;
   8   if ($file =~ /^*\.hi$/) {
   9     print "Cleaning $File::Find::name\n";
  10     unlink $file;
  11   }
  12   if ($file =~ /^*\.o$/) {
  13     print "Cleaning $File::Find::name\n";
  14     unlink $file;
  15   }
  16 }
  17
  18 find(\&clean, ("."));
  19 print "Directory Cleaned\n";