Entfernen Sie ein Wort aus einer Zeile, wenn das Wort ein bestimmtes Muster in Perl enthält

Question

Ich habe eine Zeile sagen "append serial = xyx Ende"; Ich suche die Zeile nach "seriell" und wenn es in der Zeile vorhanden ist sollte ich bis zum nächsten Leerzeichen aus der aktuellen Position entfernen. Die Zeile wird wie folgt aussehen: "Ende anhängen", nachdem die Operationen abgeschlossen sind

Vielen Dank!

Answer 1

Mit diesem Code:

my $string = "append serial=xyx end"; 
$string =~ s/serial\=.*\s+//; 
warn $string; 

OUTPUT:

append end at test.pl line 3. 

Answer 2

s/serial\S*// 

Wörtlich Spiel folgen und es mit leeren String ersetzen:

1. serial
2. \S nicht-Raum
3. * null oder mehr Male