Re: Cleaning up by age

Here's an easy way to glob, sort, and propagate an array with the 10 oldest files in a directory...

my $debug = 1;

my @oldest_10_files = (
    map { $_->[1] }
    sort { $b->[0] <=> $a->[0] }
    map { [ -M $_, $_ ] }
    glob( "/path/to/directory/*" )
)[0..9];

unlink @oldest_10_files unless $debug;

print "The following files have been removed\n\n", join "\n", @oldest_
+10_files;
[download]

Hope this helps.

Update: The above code utilizes the Schwartzian Transform. Thanks, Jonathan for pointing out the oversight.

Comment on Re: Cleaning up by age Download Code

Replies are listed 'Best First'.
Re: Re: Cleaning up by age by Jonathan (Curate) on Nov 15, 2001 at 18:21 UTC
If you are going to use a Schwartzian Transform please give credit where due.	[reply]
Re(3): Cleaning up by age by FoxtrotUniform (Prior) on Nov 20, 2001 at 22:21 UTC
If you are going to use a Schwartzian Transform please give credit where due. Eh? The ST's an idiom, not some sort of proprietary construct. It's not as if there's some great dispute over whose leap of hackerly brilliance it was -- the credit is right in the name! When someone sees `map/sort/map` they'll immediately think "Oh, a Schwartzian Transform". Immediate credit to Merlyn. That said, pointing out that a ST was used is probably a Good Thing -- that way, a novice (or maintenance programmer :-) confronted with the code has some recourse beyond "what the hell's up with all these `map`s?" The ST is pointed out, so the unfamiliar reader can go off and read up on STs... and learn something in the process. `-- :wq`	[reply]