24、Perl：比 find 更强大的文件查找利器

Perl：比 find 更强大的文件查找利器

在文件查找和处理的领域中，Perl 展现出了强大的功能，甚至在很多方面超越了传统的 find 命令。本文将深入探讨如何利用 Perl 进行文件查找和处理，通过具体的案例和代码示例，展示其在不同场景下的优势。

1. 基于文件属性查找文件

在查找文件时，我们常常需要根据文件的属性来筛选。例如，要查找指定目录下包含文本的普通文件，可以使用以下命令：

find /home/ersimpson -type f -print | perl -wnl -e '-T and print;'

这个命令中， find 命令用于找出普通文件（ -type f ），而 perl 命令则用于进一步筛选出包含文本的文件（ -T 测试）。为了方便后续使用，我们可以将这个 perl 命令封装成一个脚本：

#! /usr/bin/perl -wnl
# If file named on input line contains text, print its name
-T  and  print;

将上述代码保存为 textfiles 文件，并赋予执行权限，以后就可以直接使用这个脚本来筛选文本文件了。

另外，当我们要查找普通文件且为空或者非文本文件时，可以使用以下