关于perl遍历目录查找特定文件的事情

来源：互联网发布：华为手机连不上4g网络编辑：程序博客网时间：2024/09/21 06:37

关于perl遍历目录查找特定文件的事情

(2007-04-26 11:48:59)

转载▼

标签：

perl

分类：技术文章

早在99年的时候我就做过这个事情了，之后又遇到好多次这样的事情，但每次都是临时去写，没有做过记录，然后要测试，现在做个记录，下次就不必让别人重新写过了，权当做贡献吧：

如下程序遍历特定的目录下所有的文件（包括子目录），并找出以html,htm,shtml结尾的文件名称

#!/usr/bin/perl
&find_fileindir("/usr/local/apache/htdocs");
sub find_fileindir(){
local($dir) = @_;
opendir(DIR,"$dir"|| die "can't open this $dir");
local @files =readdir(DIR);
closedir(DIR);
for $file (@files){
    next if($file=~m/\.$/ || $file =~m/\.\.$/);
    if ($file =~/\.(html|htm|shtml)$/i){
        print "$dir\/$file \n";
    }
    elsif(-d "$dir/$file"){
            find_fileindir("$dir/$file" );
    }
}
}