查找文件夾中的文件和目錄是一個(gè)很常見的操作，使用perl的File::Find模塊可以很方便的實(shí)現(xiàn)。首先使用perldoc File::Find 查看一下文檔:
這個(gè)核心的就是文檔中描述的回調(diào)函數(shù)。我們舉一個(gè)實(shí)際的例子，一個(gè)空的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;
回調(diào)函數(shù)中用 -f進(jìn)行了過濾，只查找文件。
運(yùn)行效果如下：
對(duì)于查找文件夾中的目錄，方法是一樣的，修改一下過濾條件就行。代碼如下：文章來源：http://www.zghlxwxcb.cn/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進(jìn)行過濾。運(yùn)行效果如下：
文章來源地址http://www.zghlxwxcb.cn/news/detail-759902.html
到了這里，關(guān)于用perl查找文件夾中的所有文件和目錄的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
