在Perl中，如何輸出（打印）字符串後面的所有行？

Question

我需要處理一個日誌文件。我通過<STDIN>將它發送給Perl。我只需要輸出摘要，其中包含幾個等號。

摘要是日誌中的最後一位。所以，我需要從=到EOF之後開始的所有事情。

我嘗試使用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