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

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

相关推荐
无敌的牛25 分钟前
C++复习(1)
java·开发语言·面试
兮兮能吃能睡28 分钟前
R语言术语(2)
开发语言·r语言
wangjialelele43 分钟前
端口号、常见协议和套接字
linux·运维·服务器·c语言·网络
whm27771 小时前
Visual Basic 参数传送-形参与实参
开发语言·visual studio
蜜蜜不吃糖1 小时前
ESXI主机重置带外密码
linux·运维·服务器
共享家95271 小时前
QT-常用控件(多元素控件)
开发语言·前端·qt
幸运小圣1 小时前
Iterator迭代器 【ES6】
开发语言·javascript·es6
葱头的故事1 小时前
将传给后端的数据转换为以formData的类型传递
开发语言·前端·javascript
ZhiqianXia1 小时前
Linux SysRq
linux
Zach_yuan1 小时前
版本控制器Git
linux·git