Perl正则替换失效：为何无法保留指定磁盘挂载内容？

问题原因 #

• Perl正则默认情况下，.元字符不匹配换行符，你的正则s/.+Filesystem/Filesystem/g只能匹配同一行内"Filesystem"之前的内容。如果SSH警告信息和"Filesystem"不在同一行，前面的多行警告完全不会被匹配到，导致替换失效。
• g全局修饰符是多余的，甚至可能引发问题：如果内容中出现多个"Filesystem"，全局替换会替换所有匹配项，导致非预期的截断。
• 贪婪量词+会尽可能匹配最长的内容，若存在特殊情况（如某行包含"Filesystem"字符串），可能会错误吃掉部分挂载信息，导致"Filesystem"后出现多余字符。

解决方法 #

1. 开启单行模式匹配多行内容 #

添加s修饰符，让.匹配包括换行符在内的所有字符，这样就能跨多行匹配"Filesystem"之前的所有警告内容：

$var =~ s/.+?Filesystem/Filesystem/s;

• s修饰符：开启单行模式，.匹配任意字符（含换行）
• +?非贪婪量词：确保只匹配到第一个"Filesystem"，避免贪婪匹配导致的错误截断

2. 精准保留挂载的两行内容 #

如果需要严格只保留挂载表头和数据行（共两行），可以进一步缩小匹配范围：

# 提取第一个Filesystem开始的两行内容，丢弃后续无关内容
$var =~ s/.+?(Filesystem.*\n.*\n).*/$1/s;

示例验证 #

假设原始$var内容为：

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@    WARNING: REMOTE HOST IDENTIFICATION HAS CHANGED!     @
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
IT IS POSSIBLE THAT SOMEONE IS DOING SOMETHING NASTY!
Someone could be eavesdropping on you right now (man-in-the-middle attack)!
Filesystem      Size  Used Avail Use% Mounted on
/dev/sda1        20G   15G  4.2G  78% /

执行替换后，$var会被修改为：

Filesystem      Size  Used Avail Use% Mounted on
/dev/sda1        20G   15G  4.2G  78% /

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