File::Find 递归搜索文件目录结构

File::Find模块用于递归搜索与给定规则相匹配的文件目录结构。

语法:

 use File::Find;

 find(\&wanted, @directories_to_search);

 sub wanted { ... }



 use File::Find;

 find({ wanted => \&process, follow => 1 }, '.');

find（）函数包含两个参数，子程序的引用和目录列表。

第一个参数是一个代码的引用或者是一个hash引用对于每个文件。

wanted 函数

在子程序中可以看到如下的标量形式:

$file::Find:: Dir 中包含当前的目录名称

$file::Find::Name 包含完整的路径和文件名

$find::Find:: prune 可停止将find()函数移到该目录中

use File::Find;

find(\&wanted,'/home/doug');



sub wanted{



  #停止搜索image目录

  $File::Find::prune = 1 if /images/;

  

  if (/\.txt/i) {

    print "FILE: $_\n";

    print "Dir: $File::Find::dir\n";

    print Path: $File::Find::name\n";

  }





}