Unlinker.pl

[JSchmitz]

Category:

Utility Scripts

Description:

Uses Perl's unlink to auto-delete numerically named files. Needed this here at work.

#!/usr/bin/perl -w

# Interactive file deleter uses Unlink

print "Enter starting file name: ";
$start = <>;
print "Ending file name: ";
$end = <>;
chomp($start);
chomp($end);

opendir(MDSDIR,"/mds/nvision1");
while ( $file  = readdir(MDSDIR) ) {
if ($file =~ /000[0-9A-C]*\./) {
        $temp = $&;
        chop($temp);
        if ( $temp ge $start && $temp le $end ){
                 $temp = "/mds/nvision1/" . $temp . ".$'";
                  print  "unlinking $temp\n";
                  unlink($temp);
          }

   }
   }
   closedir(MDSDIR);