Perl正则标记间批量替换性能优化求助

问题背景 #

在Windows环境下使用Cygwin提供的最新版Perl处理大文件时，多数替换、删除操作可秒级完成，但针对**marker1与marker2标记区间内的textN（如text2、text3）**的替换操作耗时极长（曾超过6小时），且需保证标记外内容完全不被修改。

原实现及性能瓶颈 #

原代码可实现需求，但性能极差：

while (
0 < ($s =~ s@(marker1.*?)text([0-9]*)(.*?marker2)@\1letters\2\3@gs)
){}

• 核心问题：while循环配合全局非贪婪匹配，每次替换都需重新扫描整个字符串，加上.*?带来的大量回溯，大文件场景下性能急剧下降。
• 限制：区间内包含UTF-8字符、换行、标点等任意内容，无法用[^...]类字符集替代非贪婪匹配来提速。
• 额外验证：移除while循环后替换瞬间完成，且确认循环次数并不多，排除循环次数过多导致的慢执行。

优化方案 #

采用ikegami的第三种解决方案，调整为单行代码（适配实际场景中含空格的关键词），通过先锁定标记区间再执行内部替换的方式，避免全局重复扫描：

$s =~ s@marker1\K(.*?)(?=marker2)@$1 =~ s/text([0-9]*)/letters$1/gr@ges;

• 逻辑说明：
  1. marker1\K：跳过marker1，不将其纳入替换范围
  2. (.*?)(?=marker2)：精准匹配marker1到marker2之间的所有内容（非贪婪匹配，避免跨区间）
  3. 内部$1 =~ s/text([0-9]*)/letters$1/gr：对区间内的textN执行替换，r修饰符返回替换后的结果，不修改原变量
  4. ges修饰符：g全局匹配区间、e允许替换端使用Perl代码、s让.匹配换行符

效果验证 #

调整为单行代码后，替换操作瞬间完成，完全满足“仅修改标记区间内指定内容、不改动外部文本”的需求。

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