Give this a try


#!/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]

Good luck, Rob

In reply to Re^3: Delete Old Directories by williams554
in thread Delete Old Directories by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.