Perl脚本实现递归遍历目录下的文件
技术  /  管理员 发布于 5年前   242
#!/usr/bin/perl -wuse strict;use File::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] or die $!;#打开目录句柄,若失败打印错误信息 @_ = 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;#打印文件列表
原梓番博客 在
在Laravel框架中使用模型Model分表最简单的方法中评论 好久好久都没看友情链接申请了,今天刚看,已经添加。..博主 在
佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 @1111老铁这个不行了,可以看看近期评论的其他文章..1111 在
佛跳墙vpn软件不会用?上不了网?佛跳墙vpn常见问题以及解决办法中评论 网站不能打开,博主百忙中能否发个APP下载链接,佛跳墙或极光..路人 在
php中使用hyperf框架调用讯飞星火大模型实现国内版chatgpt功能示例中评论 教程很详细,如果加个前端chatgpt对话页面就完美了..博主 在
科学上网翻墙之v2rayN-Core客户端免费公益节点使用教程中评论 @ mashrdn 多切换几个节点测试,免费ssr是没那么稳..Copyright·© 2019 侯体宗版权所有· 粤ICP备20027696号