Perl的文件::查找::规则排除单个目录(Perl File::Find::Rule to exc

我有如下的目录结构。

1. 我想在我的@project得到公正的项目名称。 @project=('project1','project2') ;
   
2. 我想排除OLD目录及其子目录@project
   
3. 我想获得最新的文件中的子目录中的所有项目@project 。 即，对于project1 ，最新的文件是在子目录2014 ，这是foobar__2014_0916_248.txt
   

我怎样才能编一套规则来实现这一目标？

use strict;
use File::Find::Rule;
use Data::Dump;
my $output       = "/abc/def/ghi";
my @exclude_dirs = qw(OLD);
my @projects     = File::Find::Rule->directory->in("$output");
dd \@projects;

我的迪尔结构：

.
├── project1
│   ├── 2013
|        ├── file1_project1.txt
│   └── 2014
|         ├── foobar__2014_0912_255.txt
|         ├── foobar__2014_0916_248.txt
├── project2
│   ├── 2013
|        ├── file1_project2.txt
│   └── 2014
|         ├── foobarbaz__2014_0912_255.txt
|         ├── foobarbaz__2014_0916_248.txt
└── OLD
    └── foo.txt

Answer 1:

作为池上建议，只是做这两个步骤。

1. 首先找到你的项目名称
2. 其次找到最新的文件

下面这是否使用Path::Class和Path::Class::Rule

use strict;
use warnings;
use autodie;

use Path::Class;
use Path::Class::Rule;

my $testdir = dir('testing');

for my $project ( $testdir->children ) {
    next if !$project->is_dir() || $project->basename eq 'OLD';

    my $newest;

    my $next = Path::Class::Rule->new->file->iter($project);
    while ( my $file = $next->() ) {
        $newest = $file if !$newest || $file->stat->mtime > $newest->stat->mtime;
    }

    print "$project - $newest\n";
}

输出：

testing/project1 - testing/project1/2014/foobar__2014_0916_248.txt
testing/project2 - testing/project2/2014/foobarbaz__2014_0916_248.txt

文章来源: Perl File::Find::Rule to exclude a single dir