Perl中s/([^$sgn])d$/$1X/g正则替换逻辑理解是否正确

首先给出待校验的原代码片段：

my $sgn            = "(b|f|h|m)";  
$sometext =~ s/([^$sgn])d$/$1X/g; 

你的理解有两处偏差，其余逻辑基本正确，具体拆解如下：

实际匹配&替换逻辑 #

• 正则锚位$在未加/m修饰符时，仅匹配整段字符串的末尾位置
• 由于$sgn的内容会被直接插值到正则的排除字符类[^...]中，插值后字符类实际内容为[^(b|f|h|m)]：这里字符类内部的(、|、)都会被当作普通字面量字符处理，因此该捕获组实际匹配的是不在(、b、|、f、h、m、)这7个字符集合内的单个字符，而非你理解的仅排除b、f、h、m四个字母
• 匹配规则：当字符串最末尾的两个字符为「上述集合外的单个字符 + 字面量d」时，触发替换
• 替换规则：将匹配到的两个字符，替换为「捕获到的前一个字符 + X」——也就是说仅把末尾的d替换成X，前面的那个字符会原样保留，不是把两个字符都替换成单个X
• 末尾的/g全局匹配修饰符在这里没有实际作用：因为末尾锚定的规则下，整段字符串最多只会触发1次匹配

实例验证 #

• 字符串book：末尾字符是k不是d，不触发匹配，无修改，和你之前的判断一致
• 字符串bad：末尾两个字符是a和d，a不在上述排除字符集合内，触发替换，最终结果为baX，不是你所说的bX
• 字符串bd：倒数第二个字符是b，属于排除集合内的字符，不触发匹配，保持为bd
• 字符串(d：倒数第二个字符是(，属于排除集合内的字符，不触发匹配
• 字符串zd：z不在排除集合内，触发替换，结果为zX

额外说明 #

如果代码作者原本的意图是仅排除b、f、h、m四个字母，当前$sgn的写法是有bug的，正确的变量定义应该写为my $sgn = 'bfhm';，此时[^$sgn]才会真正匹配四个字母以外的字符。

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