Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: delete old files (windoze)

by xorl (Deacon)
on Oct 15, 2004 at 13:55 UTC ( [id://399504]=note: print w/replies, xml ) Need Help??


in reply to delete old files (windoze)

This is how I do it.
use File::Find; find(\&wanted, $dir); sub wanted { unlink $_ if -M $_ > $days; }
$dir is the directory you want to delete files from
$days is how old the files are. i.e. if you wanted to delete all files older than two weeks set days to 14.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2025-06-15 02:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.