如何用Perl grep正则表达式定位同位置的目标字母

需求回顾 #

你需要从每行格式为字符串A\字符串B的文件中，筛选出满足以下条件的行：

1. 字符串A和B长度完全相同
2. 存在某个位置（首位、末位或任意中间位置），A在该位置的字符为目标字符C1，B在同一位置的字符为目标字符C2

实现方式一：直观的Perl Grep命令（推荐） #

这种方式逻辑清晰，易于理解和维护，适合大多数场景。

固定目标字符（例如X和Y）

perl -n -e '
    my ($str_a, $str_b) = split /\\/;
    next unless length($str_a) == length($str_b);
    for my $idx (0 .. length($str_a) - 1) {
        if (substr($str_a, $idx, 1) eq "X" && substr($str_b, $idx, 1) eq "Y") {
            print;
            last;
        }
    }
' your_file.txt

动态指定目标字符

通过环境变量传入目标字符，无需修改代码即可切换不同的目标对：

TARGET_C1=X TARGET_C2=Y perl -n -e '
    my ($str_a, $str_b) = split /\\/;
    next unless length($str_a) == length($str_b);
    my $c1 = $ENV{TARGET_C1};
    my $c2 = $ENV{TARGET_C2};
    for my $idx (0 .. length($str_a) - 1) {
        if (substr($str_a, $idx, 1) eq $c1 && substr($str_b, $idx, 1) eq $c2) {
            print;
            last;
        }
    }
' your_file.txt

代码逻辑说明

1. split /\\/：将每行按分隔符\拆分为两个独立字符串
2. next unless length($str_a) == length($str_b)：直接跳过两个字符串长度不一致的行
3. 遍历每个字符位置，逐一检查是否符合目标字符对的位置匹配条件，满足则打印该行并终止当前行的遍历

实现方式二：纯正则表达式实现 #

利用Perl正则的嵌入式代码特性，将判断逻辑整合到正则中（可读性较差，适合对正则语法熟悉的场景）：

perl -n -e '/^([^\\]*)\\([^\\]*)$(?{
    $match_ok = 0;
    if (length($1) == length($2)) {
        for my $i (0 .. length($1)-1) {
            if (substr($1, $i, 1) eq "X" && substr($2, $i, 1) eq "Y") {
                $match_ok = 1;
                last;
            }
        }
    }
})(?(?{$match_ok})|(*F))/ && print' your_file.txt

正则逻辑说明

1. ^([^\\]*)\\([^\\]*)$：匹配并捕获两个被\分隔的字符串
2. (?{ ... })：嵌入Perl代码，完成长度校验和位置匹配判断，将结果存入$match_ok变量
3. (?(?{$match_ok})|(*F))：根据$match_ok的值决定匹配结果，为真则匹配成功，否则强制匹配失败

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