Perl单行程序中的跨行regex匹配

Question

我的问题听起来很琐碎，但我谷歌了很多页面还是找不到答案。

我在窗户上。我有一个文本文件。如果我用notepad++打开它，它看起来像这样

我想尝试几件事

如果我们想缩进！行如果它的前一行以“function”开头，一个天真的想法会是（实际上它的工作是notepad++)

perl -i.bak -pe "s/^(function.*\r\n)!/$1\t!/g" a.txt

但没有奏效。如何正确地去做？

Answer 1

1. perl-i.bak-pe“s/\n//”a.txt

即。只需将\r\n更改为\n，因为\r\n在Windows上会自动转换为\n，正如Ikegami所解释的那样。

这里的要点是，您需要将整个文件内容读入单个字符串，以便进行跨行匹配。-0777参数指示Perl这样做（或者，您可以从Perl脚本中将$/设置为空字符串）。