regex - perl 如何匹配新行

Question

我正在尝试匹配一条看起来像这样的线

  (white space)ERROR(some text)(new line)
  (some text)

我尝试过的是这样的正则表达式并且不起作用

  if (/\sERROR(.*)(\n.*)/){
  }

Answer 1

使用/s修饰符：/\sERROR(.*)(\n.*)/s. 并小心你的贪婪(.*)。

Answer 2

$_之前打印if。

1. 你确定你的字符串以一个空格开头吗？如果没有，您需要\s*代替\s.

2. 嵌入式换行符很少见，你确定你真的有它吗？如果是，您将需要s在最后一个/.

如果一切都失败了，请阅读手册。