省略或排除正則表達式Perl腳本

Question

您好我想搜索的東西在文件中匹配看起來與此類似：

Start Cycle 
report 1 
report 2 
report 3 
report 4 
End Cycle 

....推移和..

我要搜索「開始循環」，然後拉出報告1，並從中報告3。我的正則表達式看起來像這樣

(Start Cycle .*\n)(.*\n)(.*\n)(.*\n) 

上述正則表達式選擇開始週期，下三行..但我想從我的結果中省略第三行。那可能嗎？或者任何更簡單的perl腳本都可以完成？ 我期待像結果：

Start Cycle 
report 1 
report 3 

Answer 1

下面的代碼打印Start Cycle和End Cycle之間的奇數行：

foreach (<$filehandle>) { 
    if (/Start Cycle/ .. /End Cycle/) { 
     print if /report (\d+)/ and $1 % 2; 
    } 
} 

Answer 2

正則表達式填充$ 1，$ 2，$ 24和$ 32，每對括號的內容。

所以，如果你只是看看$ 1，$ 2和$ 4的內容，你有你想要的。

或者，您可以從第三行中刪除括號。

你的正則表達式應該是這個樣子

/Start Cycle\n(.+)\n.+\n(.+)\n.+\nEnd Cycle/g 

的/ G允許你反覆評估正則表達式，總是每次都獲得下一場比賽。

Answer 3

你可以找到的開始和結束市場上贏得然後通過線分割背景之間的文本。下面是例子：

my $text = <<TEXT; 
Start Cycle 
report 1 
report 2 
report 3 
report 4 
End Cycle 
TEXT 

## find text between all start/end pairs 
while ($text =~ m/^Start Cycle$(.*?)^End Cycle$/msg) { 
    my $reports_text = $1; 
    ## remove leading spaces 
    $reports_text =~ s/^\s+//; 
    ## split text by newlines 
    my @report_parts = split(/\r?\n/m, $reports_text); 
} 

Answer 4

如果你想離開所有周圍的代碼相同，但停止捕獲的第三件事，你可以簡單地刪除導致該行要捕獲的括號：

(Start Cycle .*\n)(.*\n).*\n(.*\n) 

Answer 5

也許是一種瘋狂的方式：改變Perl對輸入記錄的理解。

$/ = "End Cycle\n"; 
print((/(.+\n)/g)[0,1,3]) while <$file_handle>; 

Answer 6

更新：我最初沒有注意到，這只是@FM's answer在一個稍微更穩健和更長的形式。

#!/usr/bin/perl 

use strict; use warnings; 

{ 
    local $/ = "End Cycle\n"; 
    while (my $block = <DATA>) { 
     last unless my ($heading) = $block =~ /^(Start Cycle\n)/g; 
     print $heading, ($block =~ /([^\n]+\n)/g)[1, 3]; 
    } 
} 

__DATA__ 
Start Cycle 
report 1 
report 2 
report 3 
report 4 
End Cycle 

輸出：

 
Start Cycle 
report 1 
report 3 

Answer 7

while (<>) { 
    if (/Start Cycle/) { 
     print $_; 
     $_ = <>; 
     print $_; 
     $_ = <>; $_ = <>; 
     print $_; 
    } 
} 

Answer 8

我把OP的問題，作爲一個Perl的鍛鍊和用下面的代碼上來。它只是爲了學習目的而寫的。如果有任何可疑的情況，請糾正我。

while(<>) { 
    if(/Start Cycle/) { 
     push @block,$_; 
     push @block, scalar<> for 1..3;    
     print @block[0,1,3]; 
     @block=(); 
      } 
     } 

另一個版本（編輯感謝，@ FM）：

local $/; 
$_ = <>; 
    @block = (/(Start Cycle\n)(.+\n).+\n(.+\n)/g); 
    print @block;