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

关于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" );
    }
  }
}