Як я можу виправити зламані лінії в неправильних місцях?

Мій текстовий файл виглядає приблизно так:

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 порожній). Але додайте роздільник записів перед поточним рядком, якщо не в першому рядку, а поточний рядок не починається з малої літери. В іншому випадку додайте замість символу пробіл, за винятком першого рядка.

У перл:

#!/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

Пітон 3

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

Це те саме зворотнє вираження / заміна, як відповідь Джеффа