Date comparing

[Zippeh]

I need to find all the files in a directory that havent been modified in the past 7 days. I've got my script to so far find the last modified time using the following:

use File::Find;
my $age;

@ARGV = qw(.) unless @ARGV; #Darllen o'r current directory os dim paramedr

find(\&nolFfeil, @ARGV);


sub nolFfeil {
	$age = (stat($_))[9];
	print "$age\n";	
}

I know it isn't pretty! How can I use the $age variable in order to delete the file if it hasn't been modified in 7 days?

Many thanks

 

[PaulTEG]

if ($age < (time()-(86400*7))) {
  print "File should be deleted";
}

Something like that, not TESTED
--Paul

 

[KevinADC]

if (-M $_ < 8 ) {
   print scalar localtime((stat($_))[9]), "n";
}

assumes you are in the directory where $_ is or it has the full path to the file.

 

[KevinADC]

n" should be "\n