用perl查找文件夹中的所有文件和目录

爱读庄子的码农2023-12-10 10:09

查找文件夹中的文件和目录是一个很常见的操作，使用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进行过滤。运行效果如下：