从品牌网站建设到网络营销策划,从策略到执行的一站式服务
Perl编程中文件遍历操作是怎样的,针对这个问题,这篇文章详细介绍了相对应的分析和解答,希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。
创新互联,为您提供成都网站建设、成都网站制作、网站营销推广、网站开发设计,对服务成都服务器托管等多个行业拥有丰富的网站建设及推广经验。创新互联网站建设公司成立于2013年,提供专业网站制作报价服务,我们深知市场的竞争激烈,认真对待每位客户,为客户提供赏心悦目的作品。 与客户共同发展进步,是我们永远的责任!几个知识点:
use Cwd 引用当前目录
cwd:当前目录
shift:获取位置参数;
chdir 改变目录位置
opendir 打开目录
closedir 关闭目录
foreach 。。。next
#!perl -w use strict; use Cwd; // sub scanDirectory { my $workdir=shift; my $startdir=cwd; chdir $workdir or die "Unable to enter the $workdir dir!\n"; opendir my $DIR,'.' or die "can't open the dir\n"; my @names = readdir $DIR or die "can't readdir\n"; closedir $DIR; foreach my $name(@names){ next if($name eq '.'); next if($name eq '..'); if(-d $name){ scanDirectory($name); next; } if($name eq 'core.txt'){ print "find a core file! Path:". cwd ."\n"; next; } } chdir $startdir or die "Unable to enter the $startdir dir!\n"; } &scanDirectory('.');关于Perl编程中文件遍历操作是怎样的问题的解答就分享到这里了,希望以上内容可以对大家有一定的帮助,如果你还有很多疑惑没有解开,可以关注创新互联行业资讯频道了解更多相关知识。
另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图