如何修改Perl脚本以遍历目录多文件搜索匹配并打印前10行

嘿，我来帮你把这个Perl脚本改成能处理目录下多个文件的版本！咱们一步步来调整：

核心修改思路 #

原来的脚本只针对单个硬编码的文件，要处理多文件的话，我们需要：

• 遍历目标目录里的所有文件
• 对每个文件重复执行你原来的“读取内容→匹配字符串→打印前10行”逻辑
• 加上一些安全判断（比如跳过子目录、处理文件打开失败的情况）

修改后的完整脚本 #

#!/usr/bin/env perl
use strict;
use warnings; # 加上warnings能帮你发现潜在问题

# 指定要处理的目录，这里用当前目录（.），你可以改成其他路径
my $target_dir = '.';

# 获取目录下的所有文件（glob默认不包含隐藏文件，若需要可以用 "$target_dir/.*" 补充）
my @files = glob("$target_dir/*");

foreach my $file (@files) {
    # 跳过子目录，只处理普通文件
    next unless -f $file;

    # 尝试打开文件，失败则打印错误并跳过
    open my $fh, '<', $file or do {
        warn "无法打开文件 $file: $!";
        next;
    };

    # 读取文件所有内容到数组
    my @cont = <$fh>;
    close $fh;

    # 打印文件名，方便区分不同文件的结果
    print "========== 处理文件: $file ==========\n";

    # 遍历每一行，执行匹配逻辑
    for(my $i = 0; $i <= $#cont; $i++) {
        my $line = $cont[$i];
        if ($line =~ /Voice VLAN: [0-9]/i) {
            # 计算要打印的起始行：如果当前行号小于9，就从第0行开始；否则从当前行前9行开始（凑够10行）
            my $start_line = ($i >= 9) ? $i - 9 : 0;
            
            # 打印从起始行到当前匹配行的内容
            print "匹配到目标字符串，显示前10行（含匹配行）：\n";
            for(my $j = $start_line; $j <= $i; $j++) {
                # 加上行号（从1开始更符合阅读习惯）
                printf "%4d: %s", $j + 1, $cont[$j];
            }
            print "\n"; # 分隔不同的匹配结果
        }
    }
}

关键改动说明 #

• 遍历目录文件：用glob快速获取目录下的文件列表，如果你需要处理隐藏文件，可以把@files的赋值改成my @files = glob("$target_dir/*", "$target_dir/.*");
• 安全判断：用-f $file跳过子目录，避免误处理目录；用or do { warn ...; next }处理文件打开失败的情况，不会因为一个文件出错就终止整个脚本
• 更安全的文件句柄：用词法文件句柄$fh代替原来的全局LOGFILE，在循环处理多文件时更可靠，不会出现句柄泄漏
• 可读性优化：打印文件名和行号，方便你定位结果来自哪个文件、哪一行
• 边界处理完善：确保当匹配行在文件前10行时，不会出现数组越界的问题，会从文件开头开始打印

如果需要递归处理子目录里的文件，可以引入File::Find模块，我也可以给你补充这部分的代码~

内容的提问来源于stack exchange，提问作者normbeef