没看完_perl的find模块很全面的讲解！！

Posted 2020-09-22 小方666

这一篇是搬过来的，原来的在这儿http://www.freeoa.net/development/perl/perl-mod-file-find_2114.html

尊重他人劳动成果，感谢！

---

 

它是Perl核心模块之一，用于文件的搜索及查找。Perl之中的File::Find模块对在整个文件系统中搜索文件名十分有用，特别是你可以使用正则来匹配文件名并循环地穿过任何的目录结构(许可情况下)。为了展示它的工作方式，我将给出一个使用File::Find模块的脚本实例。

语法:
 use File::Find;
 find(\&wanted, @directories_to_search);
 sub wanted { ... }

 use File::Find;
 find({ wanted => \&process, follow => 1 }, ‘.‘);

File::Find的两个方法：
find 是自上而下遍历。

finddepth 是自下而上遍历。
二者调用格式相同，上例中 finddepth(\&del_svn, ".")，第一个参数是调用的子函数，第二个参数是根目录。

这里简单的说一下 find 函数，find 函数的用法如下：
find(\&wanted, @directories_to_search);

find()函数包含两个参数，子程序的引用和目录列表。第一个参数是一个代码的引用或者是一个hash引用对于每个文件。

其中第一个参数 wanted 是个子函数，也就是回调函数，由你自己来定义，这个参数必须有，即使它的内容为空。第二个参数是个目录列表，一般情况下，我们可能只是处理一个目录，所以它也可以是个普通的表示目录名的字串标量。

需要注意的是，&wanted 子程序的前面需要加一反斜杠转义。

与文件及其路径相关的三个属性：
$File::Find::dir 是当前目录全路径。
$_ 是当前文件名(不含路径)。
$File::Find::name 是当前文件的完整路径。

$File::Find::dir is the current directory name,
$_ is the current filename within that directory
$File::Find::name is the complete pathname to the file.

 以文件‘/some/path/foo.ext ‘为例：
$File::Find::dir  = /some/path/
$_  = foo.ext
$File::Find::name = /some/path/foo.ext

File::Find的属性
在使用过程中，可以设置其具体属性来改变其行为，最终得到想要结果。
find(\%options, @directories);

finddepth(\%options, @directories);

其实上面所提及的wanted函数，就是这个%options中的最重要的key了。

Perl脚本可以寻找以.tmp, .chk或是.zip结尾的文件或是以~符号开始的文件来完成，脚本将输出它找到的每一个文件的完整路径，而且在最后会显示出所占用的字节数。

在标准Perl库和Perl函数中设置了一个模块，因此当你的机器上安装了Perl之后，所有必要的模块就都可以使用了，File::Find函数模仿了UNIX的find命令并将穿过一个文件树。这里是此方式的API： 
Find(&yoursubroutine, ‘dir1’, ‘dir2’…); 

提供的子程序，将在后面详细叙述，还有希望进行搜索的目录的列表，记住这些目录将以一种深度优先方式被穿过，使用的另一个方式就是stat()函数(与C的同名库函数类似)。

File::Find方式具有特殊变量，将被赋予特定的信息，显示如下： 
* $_包含目录中的当前文件名 
* $File::Find::dir包含当前目录名 
* $File::Find::name包含$File::Find::dir/$_ 

当子程序被调用时，就会确实位于变量$File::Find::dir的目录中，子程序使用常规表达式来与$_匹配，$_使用一个if声明来寻找我们前面详细给出的所有文件名。 

如果在$_之中存储的文件名与if声明中的五个常规表达式中的任何一个相匹配，我们就将在其下面输入代码块，常规表达式非常的简单，“.”代表一个文字上的点号而不是常规表达式中的“.”的特殊意义，我们使用“”符号来避开特殊意义。“$”代表一个字符串最后的匹配而“^”代表与开头匹配。下表显示了我们试图将其与相对应的常规表达式相匹配的文件。 
File that ends with .zip     /.zip$/ 
File that ends with .tmp     /.tmp$/ 
File that ends with .TMP     /.TMP$/ 
File that begins with ~     /^~/ 
File that ends with .chk     /.chk/ 

注意：脚本对小写的tmp和大写的TMP同时进行查找，而出于效率方面的考虑，可以将文件名改为大写并只查找TMP匹配。 

最后，脚本使用stat()函数来记录所有与if声明之中的某个条件相匹配的文件所使用的字节数。如果条件符合，脚本将存储$size之中的值并将其加入到$ByteCount记录变量，如下面的代码所示： 
$ByteCount += $size; 

perl下的File::Find模块具有shell下的find命令的功能，下面具体看2个例子： 

1、找出某个目录下面以*.old结尾的文件 
use strict; 
use File::Find; 
my $path = ‘/home/test/‘; 
sub wanted { 
if ( -f $File::Find::name ) { 
 if ( $File::Find::name =~ /\.old$/ ) { 
  print "$File::Find::name\n"; 
  }
 }
}
find( \&wanted, $path ); 

2、找出某个目录下面几天前的文件 
my $path = ‘/home/test/‘; 
opendir DH, $path or die "cannot chdir to $path : $!"; 
for my $file (readdir DH) { 
 next if $file eq "." or $file eq ".."; 
 next if $file =~ /^\./; 
 if (time() - (stat($path.$file))[8] > (60*60*24*7)) { 
  print $path.$file."\n"; 
 } 
} 
closedir DH;

Perl中的find模块使用方式有以下几种:
use File::Find; 
find(/&wanted, @directories_to_search); 
sub wanted { ... } 

use File::Find; 
finddepth(/&wanted, @directories_to_search); 
sub wanted { ... } 

use File::Find; 
find({ wanted => /&process, follow => 1 }, ‘.‘); 

主要有两个函数，find和finddepth，这两个方法大致相同，但也有细微的差别： 
find： 
find(/&wanted,  @directories); 
find(/%options, @directories); 
find()会在@directories的参数所给定的目录中顺序的进行深度优先的查找，对于每一个找到的 文件 或者目录，都会调用&wanted引用所指向的sub(函数)。$wanted函数的具体使用见下文。 

另外，对于每一个找到的目录，它都会chdir()到这个目录内部，然后递归的在这个目录中 继续调用&wanted sub来操作这个目录下的子目录或文件。 

finddepth： 
finddepth(/&wanted,  @directories); 
finddepth(/%options, @directories); 

finddepth()函数的用法和find()几乎一样，只不过它会在查找完当前目录之后 ，再进入当前 目录的子目录中进行查找。它采用了后序遍历算法取代了前序遍历算法。 

wanted函数： 
在wanted()函数中，可以对文件和目录做任何形式的判断和确认。需要注意的是：wanted() 函数实质上是一个回调函数，它的返回值被忽略。 wanted函数没有参数，但是会包含一系列的内部变量，如： 
$File::Find::dir     是当前目录的名字 
$_     是当前正在处理的文件名 
$File::Find::name     是当前文件的完整路径＋文件名 

以上变量都已经被包含在wanted函数中，并且不会影响函数外的同名变量。 例如，如果要检查文件 
/some/path/foo.ext 
，这些变量的值就是： 
$File::Find::dir  = /some/path/ 
$_                = foo.ext 
$File::Find::name = /some/path/foo.ext 

程序运行时将会chdir()到$File::Find::dir目录中，除非没有子目录了。 

程序示例： 
sub wanted { 
/^/.nfs.*/z/s && 
(($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) && 
int(-M _) > 7 && 
unlink($_) 
|| 
($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) && 
$dev < 0 && 
($File::Find::prune = 1); 
}

比较重要的参数有：wanted、bydepth、no_chdir

wanted
它将指向一代码块，其中包含了对每一个找到的‘项‘和处理逻辑。

bydepth
在将目录符合条件文件列表输出后，再输出该目录名。

no_chdir
当置为‘false‘时，在其工作过程中，不进入(chdir)其所在的当前目录。下面是其默认、false、true三种情况的对比：
             $File::Find::name  $File::Find::dir  $_
 default      /                  /                 .
 
 no_chdir=>0  /etc               /                 etc
              /etc/x             /etc              x

 no_chdir=>1  /                  /                 /
              /etc               /                 /etc
              /etc/x             /etc              /etc/x

$find::Find::prune 可停止将find()函数移到该目录中
use File::Find;
find(\&wanted,‘/root/bin‘);
sub wanted{
 #停止搜索sys目录
 $File::Find::prune = 1 if /sys/;
 if (/\.log/i) {
  print "FILE: $_\n";
  print "Dir: $File::Find::dir\n";
  print "Path: $File::Find::name\n";
 }
}

参考文档：
File::Find