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;#打印文件列表
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下