Hi,

I'm fairly new to perl and have a requirement to create a script but I'm struggling a bit.

I have a directory on a Windows server which has 2 levels of subfolders below it. I want to read in the first list of subfolders and then for each of those read in the next level down. Once I have these (they are named MMYY) I want to work out any that are over 3 months old but based on the folder name and not any modification date then delete the older ones.

I've got this piece of code that should get me the first subfolder level,


my @HighFolders;
my $Highpath="D:/FSA/Recordings/";

use File::Util;
my($hf) = File::Util->;new();
my(@HighFolders) = $hf->;list_dir($Highpath,'--dirs-only');

[download]

then I have the following that should get me the next level down,

foreach $lf(@Highfolders)

use File::Util;
my($lf) = File::Util->;new();
my(@Lowfolders) = $lf->;list_dir($lf,'--dirs-only);
}

[download]

What I'm wondering is how I would go about making the @Lowfolders array uniquely named for each $Highfolder.

I also will need to convert the MMYY Lowfolder name to a Date at some point so that I can compare to the current date and work out which folders are more than 3 months old so that I can build my list of folders to delete.

Any help anyone can give me would be very much appreciated.
Thanks, Neil.

In reply to Deleting folders based on name. by fazedandconfused

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.