Perl正则匹配需求：双文件关键词匹配计数问题

我来帮你完善这个Perl脚本，实现用第一个文件中的正则表达式匹配第二个文件内容并统计匹配次数的需求。先给你完整的可运行代码，再拆解关键细节：

#!/usr/bin/perl
use strict;
use warnings;

# 检查命令行参数是否正确，必须传入两个文件：正则规则文件 + 待匹配内容文件
die "用法: $0 <正则规则文件> <待匹配内容文件>\n" unless @ARGV == 2;

my ($regex_file, $target_file) = @ARGV;

# 读取并预编译所有正则表达式，同时初始化计数器
my @pattern_stats;
open my $regex_fh, '<', $regex_file or die "打不开正则文件 '$regex_file': $!";
while (my $line = <$regex_fh>) {
    chomp $line;
    next if $line =~ /^\s*$/; # 跳过空行，避免无效规则
    
    # 编译正则并捕获错误（比如规则本身不合法的情况）
    eval {
        my $compiled_regex = qr/$line/;
        push @pattern_stats, {
            regex => $compiled_regex,
            count => 0,
            original_rule => $line
        };
    };
    warn "无效的正则规则 '$line': $@" if $@;
}
close $regex_fh;

# 遍历目标文件，统计每个正则的匹配次数
open my $target_fh, '<', $target_file or die "打不开目标文件 '$target_file': $!";
while (my $content_line = <$target_fh>) {
    chomp $content_line;
    foreach my $stat (@pattern_stats) {
        $stat->{count}++ if $content_line =~ $stat->{regex};
    }
}
close $target_fh;

# 输出最终统计结果
print "=== 匹配统计结果 ===\n";
foreach my $stat (@pattern_stats) {
    printf "正则规则: '%s' → 匹配次数: %d\n", $stat->{original_rule}, $stat->{count};
}

关键细节说明 #

• 严格模式与警告：use strict; use warnings; 是Perl脚本的好习惯，能帮你提前发现变量未声明、正则语法错误等问题，避免踩坑。
• 正则预编译：用qr//把正则规则编译成Perl内部的正则对象，比每次匹配时再解析规则效率高很多，尤其是处理大文件时效果明显。
• 错误容错：通过eval捕获无效正则的错误，遇到不合法的规则时只会输出警告，不会直接终止脚本，更健壮。
• 空行处理：自动跳过正则文件中的空行，避免添加无效的匹配规则。

注意事项 #

你示例中的正则^.*\aB.c_Feg.*_vbn.*/ds_.*$里的\a会被Perl解析为ASCII响铃字符，如果你的目标内容里的\a是字面量的\a（反斜杠+a），那正则规则里需要写成\\a，也就是把反斜杠转义，否则会匹配失败。

内容的提问来源于stack exchange，提问作者Vinut V Patil