Wie zeige ich Daten vom Anfang einer Datei bis zum ersten Auftreten eines regulären Ausdrucks an?

Question

Wie zeige ich Daten vom Anfang einer Datei bis zum ersten Auftreten eines regulären Ausdrucks an?

Zum Beispiel, wenn ich eine Datei, die enthält:

One 
Two 
Three 
Bravo 
Four 
Five 

ich den Inhalt der Datei ab Zeile beginnen soll Anzeige1 und zu stoppen, wenn ich die Zeichenfolge „B *“ finden. So sollte die Ausgabe wie folgt aussehen:

One 
Two 
Three 

Answer 1

in Perl:

perl -nle '/B.*/ && last; print; ' source.txt 

Answer 2

sed '/^B/,$d' 

lesen, dass Sie wie folgt vor: Löschen (d) alle Zeilen mit der ersten Zeile beginnen, die mit einem „B beginnt "(/^B/), hoch und bis zur letzten Zeile ($).

Answer 3

Wenn Perl eine Möglichkeit ist, könnten Sie so etwas tun:

% perl -0ne 'if (/B.*/) { print $`; last }' INPUT_FILE 

Answer 4

Wenn es von Anfang der Datei

awk '/^B/{exit}1' file 

, wenn Sie von bestimmten Zeilennummer starten wollen

awk '/^B/{exit}NR>=10' file # start from line 10 

Answer 5

perl -pe 'last if /^B/' source.txt

Eine Erklärung: Die -p Schalter eine Schleife um den Code hinzufügt, ist es in diese Wende:

 
while (<>) { 
    last if /^B.*/; # The bit we provide 
    print; 
} 

Das letzte Schlüsselwort sofort die umgebende Schleife beendet, wenn die Bedingung erfüllt ist - in diesem Fall/^ B /, was bedeutet, dass die Zeile mit einem B beginnt.

Answer 6

sed -n '1,/^B/p' 

Drucken von Zeile 1 bis/^ B/(inklusive). -n unterdrückt das Standardecho.

Aktualisierung: Opps ....wollte nicht "Bravo", so stattdessen die umgekehrte Wirkung benötigt ;-)

sed -n '/^B/,$!p' 

/I3az/

Answer 7

Hier ist ein Perl-Einzeiler:

perl -pe 'last if /B/' file 

Answer 8

Nur einige teilen ich habe Antworten erhalten:

Druckdaten in der ersten Zeile beginnen, und weiter, bis wir eine Übereinstimmung mit dem regulären Ausdruck finden, dann stoppen:

<command> | perl -n -e 'print "$_" if 1 ... /<regex>/;' 

Druckdaten in der ersten Zeile beginnen, und weiter, bis wir eine Übereinstimmung mit dem regulären Ausdruck finden, aber die Zeile nicht angezeigt werden, die den regulären Ausdruck:

<command> | perl -pe '/<regex>/ && exit;' 

es in sed tun:

Answer 9

Einige der sed Befehle, die von anderen gegeben werden, werden die Eingabe unnötigerweise weiter verarbeiten, nachdem die Regex gefunden wurde, was für große Eingaben ziemlich langsam sein könnte. Dies wird beendet, wenn der Regex gefunden wird:

sed -n '/^Bravo/q;p' 

Answer 10

Ihr Problem ist eine Variation auf einer Antwort in perlfaq6: How can I pull out lines between two patterns that are themselves on different lines?.

---

können Sie Perl verwenden etwas exotischen .. Operator (in perlop dokumentiert):

perl -ne 'print if /START/ .. /END/' file1 file2 ... 

Wenn Sie Text und nicht die Linien wollten, würden Sie

perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ... 

verwenden, aber wenn Sie Wenn Sie geschachtelte Vorkommen von START bis END möchten, stoßen Sie auf das Problem, das in der Frage in diesem Abschnitt zum Abgleich von Text beschrieben wird.

Hier ist ein weiteres Beispiel für die Verwendung ..:

while (<>) { 
    $in_header = 1 .. /^$/; 
    $in_body = /^$/ .. eof; 
# now choose between them 
} continue { 
    $. = 0 if eof; # fix $. 
} 

Answer 11

Einzeiler mit grundlegenden Shell-Kommandos:

head -`grep -n B file|head -1|cut -f1 -d":"` file