Jak naprawić linie przerywane w niewłaściwych miejscach?

Mój plik tekstowy wygląda następująco:

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

Chcę usunąć końcowy znak nowej linii dla każdej linii, po której następuje linia rozpoczynająca się od małej litery.

Powinno to być:

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

Jak mogę to zrobić?

Edycja: Jest tu kilka naprawdę dobrych odpowiedzi, ale zdecydowałem się zaakceptować pierwszą, która zadziałała i była najwcześniejsza. Dziękuję bardzo wszystkim!

próbować

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

gdzie

• $NF !~ /\.$/ dopasuj linię, w której ostatni element nie kończy się kropką,
• { printf "%s ",$0 wydrukuj ten wiersz ze spacją i bez podawania wiersza,
• next ; } pobierz następną linię,
• {print;} i wydrukuj to.

Jestem pewien, że będzie sedopcja.

Uwaga: będzie to działać z linią kończącą się kropką, jednak warunek w zdaniach rozpoczynających się od dużej litery nie zostanie scalony. Zobacz odpowiedź Stéphane'a Chazelasa.

Z awk:

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

Oznacza to, że nie dołączaj separatora rekordów do każdej linii (pusty ORS). Ale wstaw separator rekordów przed bieżącym wierszem, jeśli nie w pierwszym wierszu, a bieżący wiersz nie zaczyna się od małej litery. W przeciwnym razie wstaw znak spacji zamiast pierwszego wiersza.

W perlu:

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

Technicznie rzecz biorąc, chciałeś zastąpić „newline, po którym małymi literami”, „spacją i małą literą”, co robi rdzeń powyższego skryptu perl:

1. Wczytaj dane wejściowe do ciągu input.
2. Zaktualizuj inputzmienną, aby była wynikiem operacji wyszukiwania i zamiany.
3. Wydrukuj nową wartość.

Ze sedmożna użyć N;P;Dcyklu (tak aby zawsze mieć dwie linie w przestrzeni wzorca, a jeśli pierwszy znak po znaku nowej linii jest małe litery następnie zastąpić przełamane spacją) oraz tEst - w ten sposób po każdym substitution uruchomieniu cyklu:

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

Korzystanie sedi 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.

Skrypt sed wstawia nowy wiersz przed każdym wierszem rozpoczynającym się od dużej litery (z wyjątkiem pierwszego wiersza wprowadzania). sedDane wyjściowe są następnie przesyłane w fmtcelu sformatowania powstałych akapitów.

Alternatywnie użyj, parjeśli masz zainstalowany. To kolejny formatowanie akapitów, ale o wiele bardziej wydajny niż fmt, z wieloma dodatkowymi funkcjami i opcjami.

Zauważ, że pomiędzy każdym akapitem będzie pusta linia. Akapity powinny być oddzielone od siebie co najmniej jedną pustą linią. Bez pustych wierszy cała próbka wejściowa jest sformatowana jako pojedynczy akapit z wieloma zdaniami, np .:

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

Jeśli musisz usunąć puste linie po sedponownym sformatowaniu, po prostu przeciągnij je ponownie - ale spowoduje to usunięcie WSZYSTKICH pustych linii, w tym również tych, które mogły znajdować się w oryginalnym pliku wejściowym. na przykład

$ 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.

Innym sposobem na to jest:

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

gdzie: $\=> 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))

To jest to samo wyrażenie regularne / podstawienie co odpowiedź Jeffa