Perl'deki bir dosyadaki desenler arasındaki çoklu çizgiler nasıl silinir?

Question

Soru >> "pattern1/2/3 {" ile "}" arasında Perl! Teşekkür

Line 1 of code to keep 
Line 2 of code to keep 
} 

pattern1 { 
line to be deleted 
line to be deleted 

} 

pattern2 { 
line to be deleted 
line to be deleted 

} 

pattern3 { 
line to be deleted 
line to be deleted 

} 

Line 3 of code to keep 
Line 4 of code to keep 
} 

Answer 1

Daha sonra Küme ayraçları içine çizgileri kaldırmak olmayan açgözlü maçı ile normal ifadeler kullanabilirsiniz, bir liste halinde desenleri koyabilirsiniz:

my @patterns = qw/ 
    pattern1 
    pattern2 
    pattern3 
/; 

foreach my $pattern (@patterns) 
{ 
    $file_contents =~ s/^$pattern \{.*?\}/$pattern {\n}/ms; 
} 

Answer 2

my @keywords = qw(pattern1 pattern2 pattern3); 

my $keywords_pat = "(?:\b(?:" . join("|", map quotemeta, @keywords) . ")\b)"; 

s/ $keywords_pat \s* \{ [^{}]* (?= \})//xg; 

veya

s/ $keywords_pat \s* \{ \K ([^{}]* (?: \{ (?1) \} [^{}]*)*) (?= \})//xg; 

İkinci sürüm, {...}'u iç içe geçirir.