查找文件夹中的文件和目录是一个很常见的操作，使用perl的File::Find模块可以很方便的实现。首先使用perldoc File::Find 查看一下文档:
这个核心的就是文档中描述的回调函数。我们举一个实际的例子，一个空的git仓库为例，下面的脚本用于查找文件夹中的所有文件：
#! /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进行了过滤，只查找文件。
运行效果如下：
对于查找文件夹中的目录，方法是一样的，修改一下过滤条件就行。代码如下：文章来源：https://www.toymoban.com/news/detail-759902.html
#! /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进行过滤。运行效果如下：
文章来源地址https://www.toymoban.com/news/detail-759902.html
到了这里，关于用perl查找文件夹中的所有文件和目录的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！
