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

原创于 2023-12-09 20:56:42 发布 · 1.5k 阅读

8 ·

CC 4.0 BY-SA版权

文章标签：

#perl #开发语言 #Linux #脚本

perl 专栏收录该内容

13 篇文章

订阅专栏

查找文件夹中的文件和目录是常见操作，使用Perl的File::Find模块可方便实现。以空的git仓库为例，给出查找文件的脚本，回调函数用 -f 过滤；查找目录方法类似，修改过滤条件为 -d 即可。

查找文件夹中的文件和目录是一个很常见的操作，使用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进行了过滤，只查找文件。
运行效果如下：
在这里插入图片描述
对于查找文件夹中的目录，方法是一样的，修改一下过滤条件就行。代码如下：

#! /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;