如何用Perl正则匹配任意多行字符串并删除指定代码区块？

问题背景 #

需要删除.bashrc文件中两个# custom prompt标记（包含标记行本身）之间的所有内容，原命令仅适配固定5行场景，尝试的通用命令无效，需支持任意行数的匹配删除。

正确命令 #

以下两种命令均可实现任意多行的匹配删除：

方式1：使用-0参数和gs修饰符

perl -0pe 's/# custom prompt\n.*?# custom prompt\n//gs' -i .bashrc

方式2：使用(?s)修饰符启用单行模式

perl -pe 's/(?s)# custom prompt\n.*?# custom prompt\n//g' -i .bashrc

命令说明 #

• -0：让Perl将整个文件作为一个整体处理，避免换行符中断匹配逻辑
• (?s)：单行模式修饰符，让正则中的.可以匹配换行符
• .*?：非贪婪匹配，确保只匹配到最近的下一个# custom prompt标记，不会误删多个标记对之间的内容
• g：全局替换，处理文件中所有符合条件的标记对
• -i：直接修改原文件（若想保留备份，可写-i.bak）

原命令无效原因 #

1. 固定行数命令：s/# custom prompt\n.*\n.*\n.*\n# custom prompt\n//gm 硬编码了中间3行内容，仅能处理固定5行的场景，无法适配任意行数。
2. 尝试的通用命令：s/# custom prompt[\n.]+# custom prompt\n//gm 错误使用字符组[\n.]，它仅匹配换行符或点号，而非任意字符（包括换行），因此无法匹配中间的命令内容，导致失效。

验证示例 #

针对目标内容：

# custom prompt
aa=`command1 arg1 arg2`
bb=`command2 arg3 arg4`
PS1="$aa$bb"
# custom prompt

运行上述命令后，这段内容会被完全删除，无论中间有多少行自定义代码。

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