关于perl遍历目录查找特定文件的事情 - jues
Gentoo的emerge命令参数用法详解
Gentoo kernel配置

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

jues posted @ 2013年6月04日 14:15 in 笔记(转载) , 698 阅读

早在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" );
    }
  }
}

 

摘于: http://blog.sina.com.cn/s/blog_4ce8808d01000911.html


登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter