entfernen Zeilen Perl mit mehreren Suchmuster

Question

Ich versuche, einen Weg zu finden, Perl zu verwenden, um Linien zu entfernen, die enthalten:

errors: 
mirror 
raid* 
pond 

Ich habe finden verwaltet:

perl -pi -e "s,errors:,," 

Gibt es eine Möglichkeit, alle Muster, nach denen ich suche, in einem Befehl anzugeben?

Answer 1

Da Sie Perl erwähnen Sie verwenden können:

perl -ne 'print unless /errors:|mirror|raid\*|pond/' 

Alternative können Sie mit sed oder grep:

sed '/errors:\|mirror\|raid\*\|pond/d' 

Oder grep mit re -v erse:

grep -v 'errors:\|mirror\|raid\*\|pond' 

können Sie fügen die -i Nplace Flag sowohl sed und Perl

Answer 2

Dies ist ein Weg:

open my $fh, "<", "file.txt" or die $!; 

while(my $line = <$fh>) 
{ 
    if ($line =~ m/errors:|mirror|raid\*|pond/) 
    { 
     next; 
    } 
    print $line; 
} 
close $fh; 

Answer 3

Mit egrep als Solaris nicht die -E, --extended-regexp Option unterstützt hat

egrep -Ev "errors:|mirror|raid*|pond" file 

Ein anderer Weg, mit awk

awk '!/errors:|mirror|raid*|pond/' file 

Dank zu anishsane Vorschlag in den Kommentaren mit grep mit mehrere Ausdrücke,

grep -v -e "errors:" -e "mirror" -e "raid*" -e "pond" file