Как я могу исправить разрывы линий в неправильных местах?

Мой текстовый файл выглядит так:

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

Я хочу удалить завершающий символ новой строки для любой строки, за которой следует строка, начинающаяся со строчной буквы.

Так что это должно быть:

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

Как я могу это сделать?

Изменить: Здесь есть несколько действительно хороших ответов, но я решил принять первый, который работал и был самым ранним. Большое спасибо всем!

пытаться

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

где

• $NF !~ /\.$/ строка соответствия, где последний элемент не заканчивается точкой,
• { printf "%s ",$0 напечатать эту строку с пробелом, без перевода строки,
• next ; } получить следующую строку,
• {print;} и распечатай это.

Я уверен, что будет sedвариант.

Примечание: это будет работать со строкой, заканчивающейся точкой, однако условие в предложениях, начинающихся с заглавной буквы, не будет объединено. Смотрите ответ Стефана Шазеля.

С awk:

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

То есть не добавляйте разделитель записей в каждую строку (ORS пуст). Но добавьте разделитель записей перед текущей строкой, если не в первой строке, и текущая строка не начинается со строчной буквы. В противном случае вместо этого добавьте пробел, кроме первой строки.

В Perl:

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

Технически вы хотели заменить «символ новой строки с последующей строчной буквой» на «пробел и строчная буква», что и делает ядро ​​приведенного выше сценария perl:

1. Читайте во входных данных в строку input.
2. Обновите inputпеременную, чтобы она стала результатом операции поиска и замены.
3. Напечатайте новое значение.

С помощью sedвы можете использовать N;P;Dцикл (чтобы всегда иметь две строки в шаблонном пространстве, и если первый символ после новой строки строчный, то заменить новую строку пробелом) и test - таким образом, после каждой sзамены вы перезапускаете цикл:

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

Использование sedи 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.

Сценарий sed вставляет новую строку перед каждой строкой, которая начинается с заглавной буквы (за исключением самой первой строки ввода). sedЗатем выводится fmtрезультат, чтобы переформатировать результирующие абзацы.

В качестве альтернативы используйте, parесли он у вас установлен. Это еще одно средство переформатирования абзацев, но гораздо более функциональное, чем fmtс множеством других функций и опций.

Обратите внимание, что между каждым абзацем будет пустая строка. Параграфы должны быть отделены друг от друга хотя бы одной пустой строкой. Без пустых строк весь ваш входной образец переформатируется как один абзац из нескольких предложений, например:

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

Если вам нужно удалить пустые строки после переформатирования, просто передайте их sedснова, но это удалит ВСЕ пустые строки, включая те, которые могли быть в исходном вводе. например

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

Еще один способ сделать это:

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

где: $\=> 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))

Это то же регулярное выражение / замена, что и ответ Джеффа