Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
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 musing on the Monastery: (17)
As of 2015-07-06 17:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (80 votes), past polls