查找文件夹中的文件和目录是一个很常见的操作,使用perl的File::Find模块可以很方便的实现。首先使用perldoc File::Find 查看一下文档:
这个核心的就是文档中描述的回调函数。我们举一个实际的例子,一个空的git仓库为例,下面的脚本用于查找文件夹中的所有文件:
perl
#! /usr/bin/perl
use v5.14;
use File::Find;
my @filesArry = ();
my $callback = sub {
push @filesArry, $File::Find::name if -f;
};
find($callback, "./");
say for @filesArry;
回调函数中用 -f进行了过滤,只查找文件。
运行效果如下:
对于查找文件夹中的目录,方法是一样的,修改一下过滤条件就行。代码如下:
perl
#! /usr/bin/perl
use v5.14;
use File::Find;
my @dirsArry = ();
my $callback = sub {
push @dirsArry, $File::Find::name if -d;
};
find($callback, "./");
say for @dirsArry;
使用 -d进行过滤。运行效果如下: