Perl查找文件186

简介

在编写Perl脚本时，经常需要查找文件或目录，例如：读取文件内容、处理目录文件列表等。Perl提供了丰富的文件处理函数，可以轻松实现这些操作。

查找文件

glob() 函数

glob() 函数用于查找与指定模式匹配的文件列表。模式可以使用通配符：*（匹配任意字符）、?（匹配单个字符）、[]（匹配方括号内的字符组）。
my @files = glob("*.txt"); # 查找当前目录下所有以 ".txt" 结尾的文件

File::Find 模块

File::Find 模块提供了find() 函数，可以递归搜索目录并查找文件。find() 函数接受一个回调函数，当找到匹配的文件时会调用该函数。
use File::Find;
find(
sub {
print "$_" if /-f/; # 仅打印找到的文件
},
"/path/to/directory"
);

File::Next 模块

File::Next 模块提供了first() 和next() 函数，可以迭代目录中的文件。first() 函数返回目录中的第一个文件，next() 函数返回下一个文件。
use File::Next;
my $dir = File::Next->new("/path/to/directory");
while (my $file = $dir->first) {
print "$_" if /-f/; # 仅打印找到的文件
}

查找目录

File::Spec 模块

File::Spec 模块提供了ls() 函数，可以列出指定目录中的目录列表。
use File::Spec;
my @dirs = File::Spec->ls("/path/to/directory");

File::Next 模块

File::Next 模块的 first() 和 next() 函数也可以用于迭代目录中的目录。
use File::Next;
my $dir = File::Next->new("/path/to/directory");
while (my $file = $dir->first) {
print "$_" if /-d/; # 仅打印找到的目录
}

高级用法

递归查找

可以使用递归来查找嵌套目录中的文件或目录。例如，以下代码使用 glob() 函数递归查找当前目录和所有子目录中的 ".txt" 文件：
sub find_recursively {
my $path = shift;
my @files = glob("$path/*.txt");
for my $file (@files) {
print "$_";
}
my @dirs = glob("$path/*");
for my $dir (@dirs) {
if (-d $dir) {
find_recursively($dir);
}
}
}
find_recursively(".");

忽略隐藏文件

要忽略隐藏文件，可以使用 grep() 函数过滤 glob() 函数返回的文件列表。
my @files = glob("*.txt");
my @non_hidden_files = grep { !/^\./ } @files;

限制搜索范围

可以通过指定最大深度或最大文件大小来限制搜索范围。例如，以下代码只查找深度小于 2 并且大小小于 1MB 的文件：
my $max_depth = 2;
my $max_size = 1024 * 1024;
find(
sub {
print "$_" if (-f && -s < $max_size && depth() < $max_depth);
},
"/path/to/directory"
);

2024-12-14

上一篇：深入浅出：Perl Windows 模块安装指南

下一篇：Windows 上安装 Perl 模块