Perl正则替换：如何同时实现星号高亮的捕获与执行？

需求回顾 #

需要实现两种星号高亮规则：

• 星号与前后字符无空格时，将星号及相邻字符用class='bcy'的span标签包裹（如word*转为wor<span class='bcy'>d*</span>，*word转为<span class='bcy'>*w</span>ord）
• 星号前后有空格时，将星号单独用class='bcc'的span标签包裹（如word * word转为word <span class='bcc'>*</span> word）

原代码问题分析 #

你提供的正则替换语句：

$phr =~ s/(\*\S|\S\*)|\*/$1 ? '<span class=\'bcy\'>$1<\/span>' : '<span class='bcc'>*<\/span>'/eg;

核心问题是使用/e修饰符时，替换部分的单引号字符串无法插值$1，导致捕获到的星号及相邻字符被替换成了字符串$1，而非实际捕获内容。

修复方案 #

方案一：修正字符串插值（单引号改双引号） #

将替换部分的单引号改为双引号，让$1能正确被捕获内容替换：

$phr =~ s/(\*\S|\S\*)|\*/$1 ? "<span class='bcy'>$1<\/span>" : "<span class='bcc'>*<\/span>"/eg;

或者使用qq()来避免引号转义问题：

$phr =~ s/(\*\S|\S\*)|\*/$1 ? qq(<span class='bcy'>$1<\/span>) : qq(<span class='bcc'>*<\/span>)/eg;

方案二：拆分两次替换（更清晰） #

分开处理两种场景，无需使用/e修饰符，逻辑更直观：

# 优先处理星号与非空格字符相邻的情况
$phr =~ s/(\S\*|\*\S)/<span class='bcy'>$1<\/span>/g;
# 再处理前后均为空格的单独星号（用正向环视确保仅匹配独立星号）
$phr =~ s/(?<=\s)\*(?=\s)/<span class='bcc'>*<\/span>/g;

这种方式避免了复杂的分支判断，也降低了正则匹配冲突的概率。

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