Perl正则替换需求：排除特定前缀的Seq文本高亮

需求回顾 #

仅当Seq的前缀不是✠ （马耳他十字加空格）、n>、>或</span>时，用指定的HTML span标签包裹高亮。

正确替换代码 #

直接使用负向预查排除所有不需要匹配的前缀场景，Perl代码如下：

my $span_beg = q(<span class='bcy'>); # 高亮起始标签
my $span_end = q(</span>);           # 高亮结束标签
# 多条件负向预查，排除所有不需要替换的前缀
$phr =~ s/(?<!<\/span>|✠\s|n>|>)Seq/$span_beg$&$span_end/g;

代码说明 #

• (?<!...) 是Perl的负向预查语法，意思是"前面不能匹配括号内的内容"
• 把</span>放在最前面：因为它是最长的前缀，优先匹配避免短前缀干扰长前缀的判断
• $& 表示正则匹配到的原文本（也就是Seq），直接复用避免重复写内容

为什么你之前的尝试失败 #

1. [^✠>]Seq：只能匹配前面有一个非✠/非>字符的情况，漏掉了字符串开头的Seq，也没处理n>、</span>这类多字符前缀的排除逻辑。
2. (?<!✠\s)Seq：只排除了✠ 这一种前缀，没覆盖另外三个需要排除的场景。
3. [^(✠\s)>]Seq：字符组里的括号和竖线是字面量，不是分组/多选逻辑，完全不符合需求。

验证效果 #

• 不会被替换的示例：✠ Seq、n>Seq、>Seq、</span>Seq（前缀都在排除列表内）
• 会被替换的示例：✠Seq、* Seq、a✠Seq、>aSeq（前缀不在排除列表内）

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