我想通过使用 File::Find 列出当前目录中的所有文件,然后跳转到子目录。这是否可能?
use strict;
use warnings;
use File::Find 'find';
find(
{
'wanted' => sub { print "$File::Find::name\n" },
'preprocess' => sub { sort { -d $a <=> -d $b } @_ }
},
'.'
);
sub { map $_->[0], sort { $a->[1] <=> $b->[1] } map [ $_, -d $_ ], @_ }
当进入目录时,会调用preprocess回调函数。它可以用于类似以下的任务:
use File::Find;
my $directory = '.';
find({
wanted => sub {
# do nothing
},
preprocess => sub {
print "$File::Find::dir :\n", join("\n", <*>),"\n\n";
return @_; # no filtering
},
}, $directory);
它打印当前目录名称和其中的文件列表。请注意,preprocess
给出了所有目录条目以进行过滤,并且它们需要被返回。