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";
  }


}

转载于:https://www.cnblogs.com/tjxwg/archive/2013/02/16/2913664.html