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.iteye.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个文件匹配";
转自：
