如何foo
使用 perl 将子目录的所有路径放入数组中File::Find
abc\def\sdfg\gthrth\foo\
abc\def\fgfdg\foo\
abc\def\sdfgdsg\fgdfg\gfdgf\tytty\foo\
abc\def\foo\
我想将目录foo
内所有子目录的完整路径abc\def
放入一个数组中
use File::Find::Rule qw( );
my @paths = File::Find::Rule->name('foo')->in(@dirs);
#!/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" );