Hello Monks!
I am trying to remove directories if they are older than 30 days from this directory, the code using "rmdir" is not working anymore, do you know if permission could be set or if it needs to be set for this line with the "rmdir" to work?
Here is a sample of the code for this issue
#!/usr/bin/perl -w

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

my $date = sprintf "%04d/%02d/%02d",Add_Delta_Days( Today(), -30 );
   $date =~ s/(\d{4})\/(\d{2})\/(\d{2})/$1$2$3/;


print "\n\n Deleting directory(ies) if older than 30 days::: $date \n\
+n\n";

my $dir = "/to_del";

opendir (DIR, $dir) or die "Couldn't open directory, $!";

while (my $f_dir = readdir DIR)
{
  next if $f_dir=~/^\./;
  next unless (-d "$dir/$f_dir");
  # 20111205 - this is the name of the directy(ies) in /to_del directo
+ry , they have date for their names
  
  if($f_dir le  $date){

    print "\nDeleted  - $f_dir\n\n";
    rmdir("$dir/$f_dir") || die ("cant delete: $?"); 
  }

}
closedir DIR;

print "\n\n Done \n\n\n";

[download]
Thanks for the help!

In reply to Removing directories with rmdir! 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.