I guess your problem is that the comparision does not work for you in the following line:

if($file <= $exp_dir_date){...
[download]

#!/usr/bin/perl 
use strict;
use POSIX qw(strftime);
use Date::Calc qw( Today Add_Delta_Days);

my $older_than = 45;


# get todays date:::
my $file_date = sprintf "%04d%02d%02d", Today();

my $current_dir = "alldir";

my $exp_dir_date = sprintf "%04d%02d%02d",Add_Delta_Days( Today(), -45
+ );

my $dir_name = strftime("%Y%m%d",localtime(time));

# when this runs, it will create a new dir in alldir directory.

unless(-e $current_dir."/".$dir_name or mkdir ($current_dir."/".$dir_n
+ame, 0755)) {
        die "Unable to create $current_dir."/".$dir_name\n";
    }

print "\n**\n";

#now open $current_dir and read its content deleting any directory old
+er than 45 days

my @files = </$current_dir/*>;

foreach my $filename (@files) {
    next unless (-d $filename); # this is only letting dirs get past
    if ( int( -M $filename) > $older_than) {
        print"dir is old:$filename\n";#print what is deleted here.
        # test what you are going to delete 
        #&erase_directory ($filename); # after test uncomment this
        #rmdir $filename; # after test uncommnet this

    }
}

sub erase_directory {
    my $directory = shift @_;
    my @files = <$directory/*>;
    foreach (@files){
        unlink "$_";
    }
}
[download]

You asked this somewhere else too. I'm not sure what the monks say about that but in case you're lost or confused... Good luck, Rob

What about this, and that's right, that's how we all learn, let me know:


#!/usr/bin/perl -w

use strict;
use POSIX qw(strftime);
use Date::Calc qw( Today Add_Delta_Days);


# get todays date:::
my $file_date = sprintf "%04d/%02d/%02d", Today();

my $current_dir = "alldir";

my $exp_dir_date = sprintf "%04d/%02d/%02d",Add_Delta_Days( Today(), -
+45 );

print "\n45 Days ago:::$exp_dir_date\n";

my $dir_name = strftime("%Y%m%d",localtime(time));

# when this runs, it will create a new dir in alldir directory.

unless(-e $current_dir."/".$dir_name or mkdir ($current_dir."/".$dir_n
+ame, 0755)) {
        die "Unable to create $current_dir."/".$dir_name\n";
    }

#now open $current_dir and read its content deleting any directory old
+er than 45 days

opendir (DIR, $current_dir) or die "Couldn't open directory, $!";
while (my $file = readdir DIR)
{
  next if $file=~/^\./;
  $file =~ s/(\d{4})(\d{2})(\d{2})/$1\/$2\/$3/;
  if($file lt $exp_dir_date){
    $file =~ s/(\d{4})\/(\d{2})\/(\d{2})/$1$2$3/;
    print "\nDELETE:::$file - $file_date - $exp_dir_date\n\n";
    rmdir("alldir/$file"); #-------> remove directory 
  }else{
    
    print "\nOK:::$file* = $file_date - $exp_dir_date\n\n";      
  
  }
}
closedir DIR;

print "\n\ndone\n";
[download]