Perl正则表达式使用eval执行替换时如何保存搜索和替换的匹配部分

你可以通过在替换逻辑中增加捕获、临时存储变量的方式实现需求，修改后的代码如下：

# 初始化数组存储所有匹配替换记录
my @match_records;

foreach my $r (@repls_32) {
    my ($matched_content, $replaced_content);
    # 执行匹配与替换，同时捕获需要保存的内容
    $s_sign = eval qq{
        my \$match_success = 0;
        if (\$hex =~ m/($r->[0])/i) {
            # 保存匹配到的原始内容
            \$matched_content = \$1;
            # 带e修饰符执行替换，替换侧作为代码执行先保存替换结果
            \$hex =~ s/($r->[0])/
                \$replaced_content = "$r->[1]";
                \$replaced_content;
            /ei;
            \$match_success = 1;
        }
        \$match_success;
    };
    # 捕获eval执行错误，避免正则规则异常导致静默失败
    die "正则执行出错：$@" if $@;
    # 匹配成功则写入记录
    if ($s_sign) {
        push @match_records, {
            search_rule  => $r->[0],
            replace_rule => $r->[1],
            original     => $matched_content,
            result       => $replaced_content,
        };
    }
}

核心逻辑说明 #

• 用m//先匹配一次完整的命中内容，用括号把整个搜索规则包裹捕获到$1，相比直接用全局变量$&性能开销更低，兼容性更好
• 替换操作增加/e修饰符，将替换侧的内容作为Perl代码执行，先把替换后的结果存入临时变量再返回作为替换值
• 所有匹配记录统一存入@match_records数组，每条记录包含搜索规则、替换规则、原始匹配内容、替换结果四个字段，后续可直接遍历使用

优化建议 #

你当前的替换规则中使用\1、\2作为反向引用，这是正则匹配侧的语法，替换侧建议使用$1、$2格式的变量，兼容性和稳定性更好，生成$replace_32bit的时候直接写'A0B0C0$1$2'即可。

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