This will also find files with names consisting of digits only...

use strict;
my @LOGDIR = <*>;
foreach my $DIR(@LOGDIR) {
        if($DIR =~ m/^(\d+)$/){
                print "$DIR\n";
        }
}
[download]

Thank you very much sir this is exactly what I was looking for. :)

In case you need to search recursively, you may use the File::Find core module:

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

# Search current dir unless dir(s) given as command line args
@ARGV = qw(.) unless @ARGV;

find( \&get_dirs_with_numbers, @ARGV );

sub get_dirs_with_numbers {
    return unless /^\d+$/;    # your regex
    print $File::Find::name . "\n";
}
[download]

find function from File::Find scans directories in @ARGV recursively and for each file calls the referenced function (coderef) get_dirs_with_numbers. Before calling your function find by default changes to the directory being scanned and sets the following variables:

• $File::Find::dir -- visited directory path relative to the starting directory
• $_ -- basename of the file being visited
• $File::Find::name -- full path of the file being visited

Thank you for your thoughts Mr K. Well I just want to find any directory whos names are only made up of digits. It could either be a date, or even just a of a one digit. like 2. Thank you for clarifying doubts so sooner. :)

Hi

I also recommend that you specify your regex as close to what you expect as possible. Just taking the "Class" for decimal is opening a wide range of possible matches. You may can start by defining how many digits you expect - mean to say giving your regex a Range. ;-)

Cheers!
Tobias

my @digit_dirs = grep /^\d+$/, <*>;

print join( "\n", @digit_dirs, "" );
[download]

Thank you very much good people. I totally understood the concept. You all are the best. By the way if I get a satisfactory answer to a thread that I have started is there a way of closing/locking it? Cos I receive lot of reminders from root saying that I'd have to reply ...etc. Im just a beginner gentlemen so please let me know if there are any rules that I should follow. thanks

If you are on unix or similar shell, use:

ls|grep -P "^.*\d{8}.*"
[download]

-P in grep is for using perl regex within shell grep.