shell - Perl Script to remove files older than a year

Question

I am trying to make a script which will delete files older than a year.

This is my code:

#!/usr/bin/perl

$files = ".dat|.exe";
@file_del = split('|',$files);
 print "@file_del";

 $dates = "365|365|365|365";
 @date_del = split('|',$dates);
 if($#date_del == 0){
     for $i (@file_del){
         my $f = `find "/Users/ABC/Desktop/mydata" -name *$i -mtime +date[0]`;
         print "$f";
     }
  }
  else{
    for $i (0..$#file_del){
         my $f = `find "/Users/ABC/Desktop/mydata" -name *$file_del[$i] -mtime +$date_del[$i]`;
         print "$f";
    }
   }

Issues I am facing:

1. It is not detecting .txt files, otherwise .data,.exe,.dat etc it is detecting.
2. Also -mtime is 365. But a leap year(366 days) I have to change my script.

Answer 1

$myDir = "/Users/ABC/Desktop/mydata/";
$cleanupDays = 365
$currentMonth = (localtime)[4] + 1;
$currentyear = (localtime)[5] + 1900;
if ($currentMonth < 3) {
   $currentyear -= 1;
}
if( 0 == $currentyear % 4 and 0 != $currentyear % 100 or 0 == $currentyear % 400 ) {
    $cleanupDays += 1;
}
$nbFiles = 0;
$runDay = (time - $^T)/86400;    # Number of days script is running
opendir FH_DIR, $myDir
   or die "$0 - ERROR directory '$myDir' doesn't exist
");
foreach $fileName (grep !/^./, (readdir FH_DIR)) {
   if (((-M "$myDir$fileName") + $runDay) > $cleanupDays) {
      unlink "$myDir$fileName" or print "ERROR:NOT deleted:$fileName ";
      $nbFiles++;
   }
}
closedir FH_DIR;
print "$nbFiles files deleted
";