Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: File deletion

by blue_cowdawg (Monsignor)
on May 06, 2013 at 13:09 UTC ( #1032281=note: print w/ replies, xml ) Need Help??


in reply to File deletion

Here's something to try:

#!/usr/bin/perl ############################################################## use strict; my $directory=shift @ARGV; # get the target directory open $fh,"> /tmp/logfile.txt" or die "/tmp/logfile.txt:$!"; if ( ! -d $directory ) { puke_and_die($fh,"no such directory: " . $directory); } chdir $directory or puke_and_die($fh,"Cannot chdir to $directory"); opendir(DIR,$directory); while(my $fname=readdir(DIR)){ next if ($fname eq '.') || ($fname eq '..'); next if -d $fname; unlink $fname or logit ($fh,"could not remove " . $fname . ": $ +!"); } exit(0); sub logit { my($fh,$msg) = @_; printf $fh,"%s\n",$msg; } sub puke_and_die { my ($fh,$msg)=@_; logit($fh,$msg); close $fh; exit(-1); }
now:
  1. This assumes you are passing the directory you want cleaned out as an argument to the script. If not you need to change the mechanism a bit to accommodate your requirements.
  2. This is completely untested and is the product of a caffeine deficient brain,

ENOCOFFEE: SysAdm Halted. Brain fried; core dumped.


Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg


Comment on Re: File deletion
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1032281]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2014-10-26 05:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (151 votes), past polls