perl：如何在特定行之后打印

Question

例如，a b xx c d 包含

perl -nle 'if(/xx/){$n=$.};print if $.>($n+1)' my.txt

我希望从包含xx

的行下面的第二行打印

我试过

Microsoft.EntityFrameworkCore.Relational

但它没有用。它只打印所有行。

Answer 1

在定义$ n之前，它被解释为0（零），意味着$。 ＆GT; 1也将在xx之前打印。这可能是你想要的：

perl -nle 'if(/xx/){$n=$.}; print if defined($n) and $. > $n+1' my.txt