在 Perl 中，如何“跳过”某些文本并在剩余部分进行搜索和替换？ [复制]

Question

文本中有多次出现pattern；在进行正则表达式查找和替换时，我想跳过文本的某些部分，并在剩余部分替换pattern。示例，在代码中：

#!/usr/bin/env perl
use strict;
use warnings;

#iterate the DATA filehandle
while (<DATA>) {
    # This one replaces ALL occurrences of pattern.
    s/old/new/gs;
    # How do I skip the unwanted segments and do the replace?
    #print all
    print;
}

##inlined data filehandle for testing. 
__DATA__
START xx old xx END     --> within boundaries,  should NOT replace
START xx old
      xx old xx END     --> within boundaries,  should NOT replace
// xx old               --> within comment,     should NOT replace
xx // xx old            --> within comment,     should NOT replace
. old old xx            --> following a point,  should NOT replace
                            first one, just replace second one
xx .
  old
  old xx                --> following a point,  should NOT replace first
                            one, just replace second one.
xx old xx               --> other scenarioes,   should REPLACE

EDIT 16.2.22（更新 16.2.23）替换/不替换的标准如下： (1)START和END可以在一行，也可以跨越多行，这个范围内的patterns都不能替换；

(2).和pattern之间可能有也可能没有空格、制表符、换行符，.之后第一次出现的pattern应该被替换；

(3) cmets 总是以 //; 开头的一行。暂不考虑 /* ... */ 的 cmets 样式。

(4) // 可能是也可能不是一行的第一个字符； . 也是如此。

应该忽略 START_FLAG 和 END_FLAG 之间的任何内容，或评论中的任何内容；并且，如果pattern 跟在“.”之后，它也应该被忽略。 patterns 在文本的其余部分应替换为新内容。我尝试使用s/START.*?END|\/\/.*?\n|.\s*\w+|\w+//g 的东西，但无法找到解决方案。

这对我来说似乎有点令人费解；有什么帮助吗？提前谢谢:-)

Answer 1

使用普通的 if 语句就可以了：

while (<DATA>) {
  next if (m/^START/ && m/END$/ ) ||  m/^\/\// || m/^\./;
  s/old/new/gs;
  print;
}

---

注意 以上是OP编辑16.2.22之前的答案。