Perl脚本实现递归遍历目录下的文件
#!/usr/bin/perl-w
usestrict;
useFile::Spec;
local$\="\n";#当前模块的每行输出加入换行符
my%options;
#目录路径
$options{single_case}='/home/jiangyu/src/pl/Example';
my@cases;
if(-d$options{single_case}){#判断目录是否存在
my@files;
my$dh;
push(@files,$options{single_case});
while(@files){
if(-d$files[0]){#若是目录执行以下操作
opendir$dh,$files[0]ordie$!;#打开目录句柄,若失败打印错误信息
@_=grep{/^[^\.]/}readdir$dh;#过滤掉以"."和".."的文件,即UNIX下的隐藏文件
foreach(@_){
push(@files,File::Spec->catfile($files[0],$_));#连接目录名和文件名形成一个完整的文件路径:
}
closedir$dh;
}
#若是文件直接压入数组@cases中
elsif($files[0]=~/\.t$/){
push(@cases,$files[0]);
}
shift@files;
}
}
else{
@cases=($options{single_case});
}
print$_foreach@cases;#打印文件列表
热门推荐
10 小红书平安祝福语简短
11 生日祝福语大全女孩简短
12 收生日红包祝福语 简短
13 领证幽默祝福语简短
14 法考面试祝福语简短
15 老哥出门祝福语简短语
16 送灯祝福语简短独特
17 幼儿狗年祝福语大全简短
18 好听的元旦简短祝福语