Wie kann ich an falschen Stellen unterbrochene Linien reparieren?

Meine Textdatei sieht folgendermaßen aus:

This is one
sentence that is broken.
However this is a good one.
And this
one is
somehow, broken into
many.

Ich möchte das nachfolgende Zeilenumbruchzeichen für jede Zeile entfernen, auf die eine Zeile folgt, die mit einem Kleinbuchstaben beginnt.

Das sollte also sein:

This is one sentence that is broken.
However this is a good one.
And this one is somehow, broken into many.

Wie kann ich das machen?

Bearbeiten: Hier gibt es einige wirklich gute Antworten, aber ich habe mich dafür entschieden, die erste zu akzeptieren, die funktioniert hat und am frühesten war. Vielen Dank an alle!

Versuchen

awk '$NF !~ /\.$/ { printf "%s ",$0 ; next ; } {print;}' file

wo

• $NF !~ /\.$/ Übereinstimmungslinie, bei der das letzte Element nicht mit einem Punkt endet,
• { printf "%s ",$0 Drucken Sie diese Zeile mit einem Leerzeichen und ohne Zeilenvorschub.
• next ; } nächste Zeile holen,
• {print;} und drucken Sie es aus.

Ich bin sicher, dass es eine sedOption geben wird.

Hinweis: Dies funktioniert mit Zeilen, die mit einem Punkt enden. Die Bedingung in Sätzen, die mit Großbuchstaben beginnen, wird jedoch nicht zusammengeführt. Siehe die Antwort von Stéphane Chazelas.

Mit awk:

awk -v ORS= '{print (NR == 1 ? "" : /^[[:lower:]]/ ? " " : RS) $0}
             END {if (NR) print RS}'

Fügen Sie das Datensatztrennzeichen nicht an jede Zeile an (ORS leer). Aber prepend einen Rekord Separator vor der aktuellen Zeile , wenn nicht in der ersten Zeile und der aktuellen Zeile nicht mit einem Kleinbuchstaben beginnen. Andernfalls stellen Sie stattdessen ein Leerzeichen voran, außer in der ersten Zeile.

In Perl:

#!/usr/bin/perl -w
use strict;
my $input = join("", <>);
$input =~ s/\n([a-z])/ $1/g;
print $input;

Technisch gesehen wollten Sie "Zeilenumbruch gefolgt von Kleinbuchstaben" durch "Leerzeichen und Kleinbuchstaben" ersetzen. Dies ist der Kern des obigen Perl-Skripts:

1. Lesen Sie die Eingabe in eine Zeichenfolge ein input.
2. Aktualisieren Sie die inputVariable als Ergebnis des Such- und Ersetzungsvorgangs.
3. Drucken Sie den neuen Wert.

Mit können sedSie einen N;P;DZyklus verwenden (um immer zwei Zeilen im Musterbereich zu haben, und wenn das erste Zeichen nach der neuen Zeile in Kleinbuchstaben geschrieben ist, ersetzen Sie die neue Zeile durch ein Leerzeichen) und eine test - auf diese Weise sstarten Sie den Zyklus nach jeder Ersetzung neu:

sed -e :t -e '$!N;/\n[[:lower:]]/s/\n/ /;tt' -e 'P;D' infile

Verwenden von sedund fmt:

$ sed -e '1n; s/^[[:upper:]]/\n&/' input.txt | fmt
This is one sentence that is broken.

However this is a good one.

And this one is somehow, broken into many.

Das sed-Skript fügt vor jeder Zeile, die mit einem Großbuchstaben beginnt, eine neue Zeile ein (mit Ausnahme der allerersten Eingabezeile). sedDie Ausgabe wird dann weitergeleitet, fmtum die resultierenden Absätze neu zu formatieren.

Alternativ verwenden, parwenn Sie es installiert haben. Es ist ein weiterer Absatzumformatierer, aber viel leistungsfähiger als fmtmit viel mehr Funktionen und Optionen.

Beachten Sie, dass zwischen jedem Absatz eine Leerzeile steht. Absätze sollten durch mindestens eine Leerzeile voneinander getrennt sein. Ohne die Leerzeilen wird Ihr gesamtes Eingabebeispiel als einzelner Absatz mit mehreren Sätzen neu formatiert, z.

$ fmt input.txt
This is one sentence that is broken.  However this is a good one.
And this one is somehow, broken into many.

Wenn Sie die Leerzeilen nach der Neuformatierung entfernen müssen, leiten Sie sie einfach sederneut durch. Dadurch werden jedoch ALLE Leerzeilen entfernt, einschließlich aller Zeilen, die möglicherweise in der ursprünglichen Eingabe enthalten waren. z.B

$ sed -e '1n; s/^[[:upper:]]/\n&/' input.txt | fmt | sed -e '/^$/d'
This is one sentence that is broken.
However this is a good one.
And this one is somehow, broken into many.

Eine andere Möglichkeit, dies zu tun, ist:

perl -lpe '$\ = /\.$/ ? $/ : $"' data

worin: $\=> ORS, $/=> IRS= \n, $"=space

perl -pe '$_ .= <>, eof or redo if s/[^.]\K\n/ /' data

sed -e '
   :a
      /\.$/!N
      s/\n/ /
   ta
' data

Python 3

import re
print(re.sub(r'\n([a-z])', r' \1', open('file.txt').read(), flags=re.MULTILINE))

Dies ist die gleiche Regex / Substitution wie Jeffs Antwort