在Perl中，如何输出（打印）字符串之后的所有行？

Question

我需要处理一个日志文件。 我通过<STDIN>将其发送到Perl。 我只需要输出摘要，该摘要紧随包含多个等号的一行。

摘要是每日日志中的最后一位。 因此，我需要从EOF到= s行之后的所有内容。

我尝试将while循环与“ next unless ”一起使用，但无法正常工作。

Answer 1

您需要一个标志或两个循环。

---

在输出中包括触发线：

perl -e'
   while (<>) {
      last if /===/;
   }

   if (defined($_)) {
      print;
      while (<>) {
         print;
      }
   }
' log

perl -ne'print if $print ||= /===/' log

---

在输出中不包含触发线：

perl -e'
   while (<>) {
      last if /===/;
   }

   if (defined($_)) {
      while (<>) {
         print;
      }
   }
' log

perl -ne'last if /===/; END { print while <> }' log

perl -ne'print if $print; $print ||= /===/' log

perl -ne'print unless 1 .. /===/' log