Perl如何使用正则表达式删除Show行上下的多行数字

问题原因 #

原正则未锚定行边界，无约束的量词匹配会触发正则「最左匹配优先」规则：引擎扫描到13行开头时就可以凑出合法匹配（13\n + Show:\n + 120\n），直接终止匹配流程，不会向上覆盖Show:上方其余连续数字行。同时双引号定义正则、硬编码\n匹配换行的写法，在不同运行环境下也容易出现匹配异常。

修正后代码 #

直接使用整行锚定的写法，兼容两种业务场景，稳定性更高：

# 整文件读入标量，避免逐行处理丢失上下文
local $/;
open my $fh, '<', 'data.txt' or die $!;
my $FileContents = <$fh>;
close $fh;

# 处理Show:场景：删除上方所有连续整行数字 + Show行 + 下方紧邻整行数字
# m修饰符：让^匹配每行行首，确保匹配整行内容
# \R：兼容所有操作系统的换行符（\n、\r\n、\r）
# ?:：非捕获分组，提升匹配效率
$FileContents =~ s/^(?:\d+\R)*^Show:\R\d+\R//mg;

# 处理Showing场景：删除Showing开头整行 + 下方所有连续整行数字
$FileContents =~ s/^Showing.*\R(?:\d+\R)*//mg;

# 可选：清理替换后可能残留的连续空行
$FileContents =~ s/\n{2,}/\n/g;

print $FileContents;

效果验证 #

1. 针对第一份测试数据，匹配删除的内容为1\n2\n3\n13\nShow:\n120\n，输出结果为：

   Some random text here
   items per page
   

2. 针对第二份测试数据，匹配删除的内容为Showing 1 - 46 of 46 products\n20\n50\n，输出结果为：

   per page
   

写法注意点 #

• 定义正则时优先用单引号字符串，避免双引号自动转义、变量插值带来的非预期结果
• 匹配整行内容时务必加m修饰符，用^锚定行首，避免匹配到行内的数字片段
• 跨平台处理文本时用\R匹配换行，不要硬写\n，避免Windows格式换行符导致匹配失败

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