perl-查询某目录及其子目录下的某类匹配文件

_N_了吧唧的_

　　
　　1、使用find
use strict;
use File::Find;
　　my @path = 'e:/xampp';
push (@path,'e:/xampp');
push (@path,'d:/eclipse-reporting-galileo-SR2-win32');
sub wanted {
    if ( -f $File::Find::name ) {
        if ( $File::Find::name =~ /\.xml$/ ) {
            print "$File::Find::name\n";
        }
    }
}
find( \&wanted, @path );
　　
　　
　　2、自己写代码
　　
　　
　　#取出某个目录含子目录的特定文件
#程序：刘兴
#时间：2010.3.19
#blog:http://deepfuture.iyunv.com
#QQ:782322192
use 5.010;
use warnings;
use strict;
my $dirs='D:\Boa Constructor';# 初始路径
my $lsfile;
my @filedir;
my %filediryj;#已经访问过的目录 ，目录名=>文件数目
my $flcount;
my $ppfile;#文件匹配符 以正则方式表达的
$ppfile='\.py$'; #文件匹配符 以正则方式表达的 ，这里是*.py
unshift (@filedir,$dirs);
$|=1;
my $filedir;
while ($filedir=shift(@filedir)){
   opendir DH,$filedir or die "不能打开$filedir"; #打开目录
   say "=======================================";
   next if exists $filediryj{$filedir};#如果目录已经访问过了就不再访问
   $flcount=0;
   foreach $lsfile(readdir DH){#读取目录
      next if $lsfile=~m/^\./;
      $lsfile="$filedir\\$lsfile";
      if ( -d $lsfile){
         unshift (@filedir,$lsfile);
      }
      elsif ($lsfile=~m/$ppfile/i) {
         $flcount++;
         say $lsfile;#匹配到的文件名
      }
  }
  close DH;
  $filediryj{$filedir}=$flcount;#目录下共有多少个文件,使用哈希
  say "目录$filedir下共$flcount个匹配文件";
}
say "=======================================";
say "查询结果统计";
#访问哈希列表
$flcount=0;
my $key;
my $value;
while (($key,$value)=each %filediryj){
  say "$key目录文件数目：$value";
  $flcount+=$value;
}
say "共有$flcount个文件匹配";
　　
　　

　　转自：
　　http://deepfuture.iyunv.com/blog/619998