How can I frame a rule to achieve this?

By adapting the examples in the File::Find::Rule documentation to your needs. Did you actually read the documentation? You set up a @exclude_dirs with qw(OLD). And? what for? you don't use it anywhere.

A recipe to exclude a directory is in the documentation under the sub-heading "Further examples" following "ignore CVS directories".

Your code looks like whipped up to provide at least something to fend off the "no code" argument; but you seem to be trying to use The Monastery as a coding service, which it is not.

You have edited your node without marking your updates. Don't do that, since now shmem's reply partially does not make sense anymore - see also this.

Plus, your updated code still doesn't compile, making it look like you're just pasting together code snippets in the hopes that someone else will write your code for you. If you took the effort you've shown into typing up this question and put it into reading the documentation, you'd probably have a solution by now, or at least have some more cooperation (at least from me... I'm still wondering what the solution to your strptime mystery is).

I have updated the question clearly and the code is getting compiled now. Please check and let me know incase you know the solution. strptime didnt work for me. May be because of the perl version as suggested. Thanks

I agree with shmem. Especially since your code doesn't compile, again. Please apply some effort to your questions, you'll get better responses, and it'll probably help you answer your own questions too.

I have updated the question clearly and the code is getting compiled now. Please check and let me know incase you know the solution. Thanks

am trying to get the list of latest files in each dir(for each project) under a specific path ($output) , excluding a single dir OLD How can I frame a rule to achieve this?

file find rule date, file find rule date, file find rule date, site:perlmonks.org file find rule date

untested

#!/usr/bin/perl --
use strict;
use warnings;
use File::Find::Rule qw/ find rule /;

Main( @ARGV );
exit( 0 );

sub Main {
    my @dirs = ProjectDirsInExcept( $output, 'OLD' );
    for my $dir (@dirs) {
        my ($file) = LatestFile($dir);
        print "$file\n";
    }
}

sub ProjectDirsInExcept {
    my ( $in, @except ) = @_;
    my @dirs = find(
        directory => not_name => \@except,
        maxdepth  => 1,
        in        => $output,
    );
    return @dirs;
}

sub LatestFile {
    my ($dir) = @_;
    my @files = find( file => maxdepth => 2, in => $dir );
    @files = map { $$_[0] }
      sort { $$b[1] <=> $$a[1] }
      map { [ $_, ( stat $_ )[9] ] } @files;
    return shift @files;
}
__END__
[download]