正则匹配最后空格与左方括号间字符串的Perl命令异常问题

你的问题场景 #

你说有格式像Some text with many spaces[some text inside square brackets]的文本，想抓取最后一个空格到左方括号[之间的内容——也就是示例里的“spaces”。在线正则测试器用.*\s(.*)\[能得到正确结果，但换成Perl单行命令：

$ cat file-containing-pattern.txt | perl -ne "print $1 if s/.*\s(.*)(\[)/\1/"

输出却变成了spacessome text inside square brackets]，完全不符合预期，对吧？

为啥会出问题？ #

这里有两个容易踩的坑：

• 贪婪匹配搞事情：你正则里的(.*)是贪婪模式，它会尽可能多的抓取字符，直到找到最后一个[——但你的字符串里[后面还有内容，所以它直接把[之后的所有内容也吞进去了，导致输出串了味。
• shell解析双引号里的变量：你用了双引号包裹Perl代码，shell会把$1当成自己的环境变量来解析，而不是Perl的捕获组，这也会干扰最终结果。

怎么修正？ #

给你两个靠谱的方案：

方案1：用非贪婪模式限制匹配范围 #

把贪婪的.*改成非贪婪的.*?，让它抓到第一个[就停手，同时把[之后的内容也替换掉，确保只输出我们要的部分：

cat file-containing-pattern.txt | perl -ne 'print $1 if s/.*\s(.*?)\[.*//'

方案2：用否定字符集精准匹配（更高效） #

直接用[^[]*代替.*，这个写法的意思是“匹配所有不是[的字符”，从根本上避免贪婪/非贪婪的问题，执行效率也更高：

cat file-containing-pattern.txt | perl -ne 'print $1 if s/.*\s([^[]*)\[.*//'

关键提醒：一定要用单引号！ #

把Perl代码用单引号包裹，这样shell就不会乱解析里面的$1、\1这些Perl语法了，这是很多人用Perl单行命令容易忽略的细节。

测试验证 #

拿你给的示例文本Some text with many spaces[some text inside square brackets]来跑上面的命令，输出都是：

spaces

完美符合预期~

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