使用 File::Find 的子目录的 perl 列表路径

Question

如何使用 File::Find

将子目录 foo 的所有路径放入 perl 数组中

 abc\def\sdfg\gthrth\foo\
 abc\def\fgfdg\foo\
 abc\def\sdfgdsg\fgdfg\gfdgf\tytty\foo\
 abc\def\foo\

我想将目录 abc\def 中所有子目录 foo 的完整路径获取到一个数组中

Answer 1

use File::Find::Rule qw( );

my @paths = File::Find::Rule->name('foo')->in(@dirs);

Answer 2

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

my @foo_paths;

sub is_it_foo {
   if ( m,^foo$, ) { 
       push ( @foo_paths, $File::Find::name ); 
   }
}

find ( \&is_it_foo, "abc/def" );

使用 File::Find 的子目录的 perl 列表路径

perl list path of subdirectory using File::Find

perl

file-find