Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Unlinker.pl

by JSchmitz (Canon)
on May 15, 2001 at 00:03 UTC ( #80324=sourcecode: print w/replies, xml ) Need Help??
Category: Utility Scripts
Author/Contact Info JSchmitz@linuxmail.org
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);
Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://80324]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (10)
As of 2016-12-07 21:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (131 votes). Check out past polls.