/ / Perl: Stimmen Sie einen String ab und löschen Sie alles außer dem ersten Vorkommen - Regex, Perl

Perl: Entspricht einem String und löscht alle außer dem ersten Vorkommen - regex, perl

Ich habe eine Datei in Perl, die folgenden Inhalt hat

abc
text1
text2
text3
abc
text4
text5
abc
abc

Endgültige Ausgabe:

abc
text1
text2
text3
text4
text5

Ich möchte einen Perl-One-Liner oder ein Skript verwenden, um das 1. ABC zu behalten und den Rest zu löschen. In meinem Skript verwende ich den Mustervergleichsoperator m?/abc/ das erste Muster finden, aber keinen Weg finden, den Rest zu löschen. Bitte hilf mir dabei

Antworten:

3 für die Antwort № 1

Angenommen, Sie möchten die gesamte Zeile löschen, die das zweite und nachfolgende Vorkommen von enthält abc:

perl -ne "print if !/abc/ || !$n++" < infile > outfile

Wenn Sie Zeilen löschen möchten, die enthalten abc und sonst nichts, Veränderung /abc/ zu /^abc$/.

Verwandte Fragen

Perl Regex: Wie zeichne ich Gruppen in Pipe Text? - Regex, Perl, Rohr, Regex-Gruppe
Perl oder Sed Befehl zum Löschen von Inhalt vor dem Ausdruck - regex, perl, sed, expression
Wie entferne ich ein bestimmtes Zeichen aus einer ganzen Zeile einer bestimmten Zeichenkette mit Perl Regex? - Regex, Perl
Working RegEx, das in Perl fehlschlägt, findet und ersetzt one-liner - regex, perl
Perl regulärer Ausdruck, um alle außer letzten Vorkommen zu entfernen - regex, perl
Wie passe ich so etwas mit Perl Regex? - Regex, Perl
Perls Regulärer Ausdruck Modifikator - Regex, Perl
Perl prüft, ob String das Präfix der gültigen Regex-Übereinstimmung ist - Regex, Perl
Warum passt mein Perl-Regex nicht zu einfachen Hostnamen? - Regex, Perl, Regex-gierig
RegEx für beide, Integer und Float - Regex
Warum ist Perl faul, wenn Regex mit * gegen eine Gruppe übereinstimmt? - Regex, Perl
Perl Match und entfernen Sie die Anzahl der Zeilen - Regex, Perl
Regex stimmt mit Skalaren in Perl überein. - Regex, Perl
Wie benutze Regex um Elemente zu finden, die nicht von ... gefolgt werden? - Regex
Zerstörungsfreier Ersatz für Regex-Capture-Variablen in Perl5? - Regex, Perl, Substitution, Perl5
benannte Erfassungen, die mehr als einmal übereinstimmen (Perl) - regex, perl
RegEx Perl-Syntax zu Python - Python, Regex
Konvertieren von Perl-Regex in Python-Regex - Python, Regex, Perl
MATLAB Out of Memory bei Verwendung von Perl () - Matlab, Perl, Speicher
Manipulieren von String Perl SVs in C - c, string, perl