正则表达式在 Perl 中不匹配，而在其他程序中匹配

Question

我有以下字符串:

load Add 20 percent
 to accommodate

我想去:

load Add 20 percent to accommodate

例如，使用 sublime 中的正则表达式，这很容易通过以下方式完成:正则表达式:([a-z])\n\s([a-z])代替:$1 $2

但是，在 Perl 中，如果我输入此命令，(用于测试我是否可以在任何情况下匹配模式):

perl -pi.orig -e 's/[a-z]\n.+to/TEST/g' file

它不匹配任何东西。

有谁知道为什么 Perl 在这种情况下会有所不同，Perl 命令的正确表述应该是什么？

Answer 1

默认情况下，Perl -p 标志逐行读取输入。因此，您不能期望您的正则表达式匹配 \n 之后的任何内容。

相反，您想一次读取整个输入。您可以使用标记 -0777 来执行此操作(这在 perlrun 中有记录):

perl -0777 -pi.orig -e 's/([a-z])\n\s(to)/$1 $2/' file