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

发布时间：2020-12-16 00:09:49 所属栏目：大数据来源：网络整理

导读：关于perl遍历目录查找特定文件的事情 (2007-04-26 11:48:59) 转载 ▼ 标签： perl 分类：技术文章 ? 早在99年的时候我就做过这个事情了，之后又遇到好多次这样的事情，但每次都是临时去写，没有做过记录，然后要测试，现在做个记录，下次就不必让别人重新写

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!