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 婚前女儿生日祝福语简短