Perl脚本实现递归遍历目录下的文件（perl读取文件内容到数组）满满干货

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

文章摘要

本文描述了一段 Perl 代码，用于从指定目录中收集所有非隐藏文件，并通过标准输出打印这些文件的名称。代码通过以下步骤实现功能： 1. 检查目标目录是否存在。 2. 如果目录存在，遍历目录结构，过滤掉隐藏文件（以 '.' 和 '..' 开头的文件）。 3. 对于每个目录中的文件，构建完整的文件路径，并将文件名保存到数组中。 4. 最后，打印数组中的文件名。代码还使用了 Perl 语言的 `File::Spec` 库来处理文件路径操作。

#!/usr/bin/perl -w
use 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});
}