This works for me:

use strict;
use warnings;
use File::Find::Rule;

my @dirs = File::Find::Rule
    ->directory
    ->mtime( '>' . (time - (60 * 60 * 24 * 7)) )
    ->in( '.' )
;
print "$_\n" for @dirs;
[download]

The tricky part is what to pass to mtime() ... you need to subtract 7 days from the current Epoch (via time) and anything greater than that result falls within the past 7 days. You will need to install File::Find::Rule.

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Thank you.

I try to be up-to-date:

#!/usr/bin/env perl

use strict;
use warnings;
use Path::Iterator::Rule;
use feature qw(say);

my $amount = ( time - ( 60 * 60 * 24 * 7 ) );

my $rule = Path::Iterator::Rule->new;
$rule->mtime(">$amount");
$rule->directory;

my @dirs = qw(.);

my $next = $rule->iter(@dirs);

while ( defined( my $dir = $next->() ) ) {
    say $dir;
}

__END__
[download]

Please see Why not recommend IO::All? as well as IO::All and Path::Iterator::Rule for further information.

Regards, Karl

Dave.

Traditionally this was true (the change time being the updating of the inode). Some newer filesystems and tools do support a separate creation time (crtime), change time (ctime), modification time (mtime), and access time (atime). Also, it's worth noting that access time is often disabled or only updated if it's the first access since ctime or mtime updates (via the relatime mount option).

foreach my $dirnam (@dirnames_I_found)
{
    if ( (-M $dirnam) < 7 )
    {
        print "    $dirnam\n";
    }
}
[download]

Monks really should stop posting untested code ... getting the first reply is not the goal here.

Your code does not even handle traversing directories or even how to obtain the directories to inspect.

It has been my experience that use of opendir/closediror File::Findand its ilk does not generally elude a Seeker who quotes the use of a CPAN module in their question.

I do find, however, that use of -Xfrom perlfuncdoes often elude folks who do not use Perl on a regular basis.

I provided an example of that built-in functionality which most closely matched what I felt Jeri was seeking.

I would also note that my then-untested code worked without modification once tested.

A reminder that may be needed, despite your years here: Super Search is your friend.

This is a question asked -- and answered -- many times each year. Perhaps you can find a solution that will satisfy your needs by exerting no more effort than it took to post a lazy question.

I don't want to collect all the directories and then analyze them based on their creation date. I wanted it to be more efficient and just collect those I'm interest in. Maybe this is not possible in perl? Also, I'm not lazy.

Then just set it up to accept an arg that would be a keyword, that way you could atleast filter the dir list.

Perl is nice. But if you are on a *nix box, just use the find command directly.