Perl编程中文件遍历操作是怎样的，针对这个问题，这篇文章详细介绍了相对应的分析和解答，希望可以帮助更多想解决这个问题的小伙伴找到更简单易行的方法。
几个知识点：
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编程中文件遍历操作是怎样的问题的解答就分享到这里了，希望以上内容可以对大家有一定的帮助，如果你还有很多疑惑没有解开，可以关注亿速云行业资讯频道了解更多相关知识。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
