perl 递归地遍历目录下的文件
发布时间:2020-12-15 23:47:12 所属栏目:大数据 来源:网络整理
导读:# !/usr/bin/perl -w use strict; use File:: Spec; local $ = " n " ; 当前模块的每行输出加入换行符 my %options ; 目录路径 $options {single_case} = ' /home/jiangyu/src/pl/Example ' ; @cases ; if (-d $options {single_case}) { 判断目录是否存在
#!/usr/bin/perl -w use strict; use File::Spec; local $ ="n";当前模块的每行输出加入换行符 my %options; 目录路径 $options{single_case} = '/home/jiangyu/src/pl/Example'; @cases; if (-d $options{single_case}) {判断目录是否存在 @files; $dh; push(@files,$options{single_case}); while (@files) { $files[0]) {若是目录执行以下操作 opendir $dh,0)">0] or die $!;打开目录句柄,若失败打印错误信息 @_ = grep { /^[^.]/ } readdir $dh;过滤掉以"."和".."的文件,即UNIX下的隐藏文件 foreach (@_) { 0],128)">$_));连接目录名和文件名形成一个完整的文件路径: } closedir $dh; } 若是文件直接压入数组@cases中 elsif (0] =~ /.t$/) { @cases,0)">0]); } shift @files; } } else { @cases = ($options{single_case}); } print $_ foreach @cases;打印文件列表 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |