UNIX for Advanced & Expert Users

#!/usr/bin/env perl


die "Syntax: $0 directory" if (@ARGV != 1 || ! -d $ARGV[0]);
$TwoMonths = 60 * 60 * 24 * 60; # Seconds in two months (+/-)
$Dir = $ARGV[0];
die "Can't open directory $Dir - $!" if (!opendir (DIR, $Dir));
map ($Filelist{"$Dir/$_"} = (stat ("$Dir/$_"))[9] , grep {-f "$Dir/$_"} readdir(DIR));
closedir (DIR);
# Latest file's timestamp in seconds
$LTS=$Filelist{$tmpfile = (sort{$Filelist{$b} <=> $Filelist{$a}} keys (%Filelist))[0]};
@FilesToDelete = grep ($TwoMonths < ($LTS - $Filelist{$_}), keys (%Filelist));
print "\nlast file is $tmpfile, $Filelist{$tmpfile}\nFiles to delete:". join ("\n", @FilesToDelete) . "\n";
# You can now remove files
unlink @FilesToDelete;

Checking on this

Try out this dude..

ls -ltr | grep -v "date you wanna keep" | awk '{print $NF}' | xargs -i rm -rf {}

file - script.sh

#!/bin/sh

#!/bin/bash
Keepdate="/bin/ls -ult --full-time| sed 1d | head -1 | awk '{ print $6 }'"
/bin/ls -ltr | grep -v "$Keepdate" | awk '{print $NF}' | xargs -i rm -rf {}


The above script deleted Every thing:

bash-3.00$ ls -ult --full-time
total 8
-rwxrwxrwx 1 ss54066 user 164 2007-02-23 06:24:56.920724000 -0500 check.sh
-rwxrwxrwx 1 ss54066 user 72 2007-02-22 06:07:45.044181000 -0500 Command
-rw-r--r-- 1 ss54066 user 0 2007-02-12 00:00:00.000000000 -0500 touch
-rw-r--r-- 1 ss54066 user 7 2003-02-12 00:00:00.000000000 -0500 1.txt
bash-3.00$ ./script.sh
bash-3.00$ ls -ult --full-time
total 0

This should have deleted only 2003

Keepdate="/bin/ls -ult --full-time| sed 1d | head -1 | awk '{ print $6 }'"

modify that to like this..u need to use carets not double quotes. then echo keepdate also to get the actual variable value
Keepdate=`/bin/ls -ult --full-time| sed 1d | head -1 | awk '{ print $6 }'`

hmmm ... should that delete only 2003 ?

#!/bin/bash
Keepdate=`/bin/ls -ult --full-time| sed 1d | head -1 | awk '{ print $6 }'`

/bin/ls -ltr | grep -v "$Keepdate" | awk '{print $NF}' | xargs -i rm -rf {}