忽略文件中的行直到匹配並在此之後處理行

Question

我正在循環遍歷文件中的行，並且匹配特定行時，我想要處理當前（匹配）行之後的行。我能做到這一點： -

open my $fh, '<', "abc" or die "Cannot open!!"; 
while (my $line = <$fh>){ 
    next if($line !~ m/Important Lines below this Line/); 
    last; 
} 
while (my $line = <$fh>){ 
    print $line; 
} 

是否有更好的方法來做到這一點（代碼需要一個更大的Perl腳本的一部分）？

Answer 1

我會使用flip-flop operator：

while(<DATA>) { 
    next if 1 .. /Important/; 
    print $_; 
} 
__DATA__ 
skip 
skip 
Important Lines below this Line 
keep 
keep 

輸出：

keep 
keep