如何在搜索和替换过程中让perl跳过某些单词

Question

如果文件中的单词匹配某些关键字/名称，我试图做HTML突出显示。然而，有时候关键词的一部分也存在，Perl会再次匹配它。

例如，我有以下关键词

1. KY SPINE & REHAB - 当发现与它周围的方括号
2. SPINE更换 - 发现与它周围的圆括弧
3. REHAB更换时 - 当发现圆括号代替它周围

一旦它匹配KY SPINE & REHAB，我想要阻止它匹配SPINE和REHAB。

这就是我现在得到的。我不能给HTML的例子，因为我不知道如何显示HTML标记，因为这个网站翻译它，只显示文本。实际上，我试图用不同的颜色来突出显示这些关键字，这些关键字来自于它们来自哪一组。

我现在得到：

[KY (SPINE) & (REHAB)] 

我要的是：

[KY SPINE & REHAB] 

如何让我的Perl跳过的话，在做搜索和替换？

我有数百万条记录，我必须这样做，即使并行处理速度也不是那么快。所以，代码高效的建议将不胜感激。

作为更新，我有数百个关键字，任何关键字可能是另一个关键字的子集。所以对其进行硬编码是不实际的。我正在寻找解决方案，perl可以跳过方括号内的字符串，这样就不会发生进一步的替换。

Answer 1

这为我工作

s/(KY SPINE & REHAB|SPINE|REHAB)/[$1]/g 

希望它会为你工作，要么

编辑：

这是为我工作一个完整的代码。可以将它用于您的案例或任何其他自定义替换任何字符串。这可能不是一个很酷的班轮，但它的工作原理。希望它更适合您的需求。

use strict; 
use warnings; 

my ($new, $last, $offset, $length, $replace); 

while(<DATA>) { 
    $new = ''; 
    $last = 0; 
    while ($_ =~ m/KY SPINE & REHAB|SPINE|REHAB/g) { 
     $offset = $-[0]; 
     if ($& eq 'KY SPINE & REHAB') { 
      $replace = '[' . $& . ']'; 
     } 
     if ($& eq 'SPINE') { 
      $replace = '(' . $& . ')'; 
     } 
     if ($& eq 'REHAB') { 
      $replace = '(' . $& . ')'; 
     } 
     $length = $offset - $last; 
     $new .= substr($_, $last, $length) . $replace; 
     $last = $+[0]; 
    } 
    $length = length($_) - $last; 
    $new .= substr($_, $last, $length); 
    print $new; 
} 

__DATA__ 
lorem ipsum KY SPINE & REHAB dolor sit amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor incididunt ut labore et dolore magna aliqua sit amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor 
KY SPINE & REHAB dolor sit amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor incididunt ut amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor adipiscing elit REHAB sed do eiusmod tempor 
lorem ipsum KY SPINE & REHAB dolor sit amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor incididunt ut labore et dolore magna aliqua sit amet SPINE consectetur adipiscing elit REHAB sed do eiusmod tempor 
SPINE sit amet SPINE consectetur REHAB 
SPINE 
sit amet SPINE consectetur KY SPINE & REHAB REHAB 

Answer 2

如果这些是你想突出，那么唯一的三个阶段，这将做它为您

perl -i -pe's/(KY SPINE & REHAB|SPINE|REHAB)/$1 =~ tr/&// ? "[$1]" : "($1)"/eg' myfile 

Answer 3

如何：

while(<DATA>) { 
    chomp; 
    s/(KY SPINE & REHAB)/[$1]/; 
    s/(SPINE(?!.*REHAB)|(?<!SPINE &)REHAB)/($1)/; 
    say; 
} 

__DATA__ 
KY SPINE & REHAB - when found replace with square brackets around it 
SPINE - when found replace with round brackets around it 
REHAB - when found replace with round brackets around it 

输出：

[KY SPINE & REHAB] - when found replace with square brackets around it 
(SPINE) - when found replace with round brackets around it 
(REHAB) - when found replace with round brackets around it