Xnote.com Technical Forums - delete files by date with perl

	Last active: Never
	Not logged in [Login - Register]

FAQ

Member List

Today's Posts Forum Stats

Stats

Back to:

Xnote.com Technical Forums » Perl » delete files by date with perl

Printable Version | Subscribe | Add to Favourites

Alan Fullmer

Super Administrator

Posts: 62
Registered: 8-12-2004
Member Is Offline

Mood: No Mood

posted on 15-2-2007 at 03:03 PM

delete files by date with perl

This is a routine I use to sort through temp files in /tmp. It will delete all files older than 5 days. You can adjust this. I put it in a cron entry to remove files that haven't gotten deleted from various web applications.

-M for modified
-C for created

Quote:

#!/usr/bin/perl

opendir(DELE, '/tmp') or die "Could not open directoryn";
print "directory openedn";
@TODELETE = readdir(DELE);

#PUT LOOP HERE

foreach $buh (@TODELETE)
{
if (-d $buh) {next}
if ((-M $buh) > 5)
{
unlink($buh);
print "removed $buhnn";
}
}

#END LOOP HERE

closedir(DELE);