Comment réparer les lignes interrompues aux mauvais endroits?

Mon fichier texte ressemble à ceci:

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

Je veux supprimer le caractère de fin de ligne pour toute ligne qui est suivie d'une ligne commençant par une lettre minuscule.

Cela devrait donc être:

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

Comment puis-je faire ceci?

Edit: Il y a de très bonnes réponses ici, mais j'ai choisi d'accepter la première qui a fonctionné et qui était la plus ancienne. Merci beaucoup à tous!

essayer

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

où

• $NF !~ /\.$/ faire correspondre la ligne où le dernier élément ne se termine pas par un point,
• { printf "%s ",$0 imprimer cette ligne avec un espace de fin et sans saut de ligne,
• next ; } récupérer la ligne suivante,
• {print;} et l'imprimer.

Je suis sûr qu'il y aura une sedoption.

Remarque: cela fonctionnera avec une ligne se terminant par un point, mais la condition dans les phrases commençant par une lettre majuscule ne sera pas fusionnée. Voir la réponse de Stéphane Chazelas.

Avec awk:

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

Autrement dit, n'ajoutez pas le séparateur d'enregistrement à chaque ligne (ORS vide). Mais ajoutez un séparateur d'enregistrement avant la ligne actuelle si ce n'est pas sur la première ligne et la ligne actuelle ne commence pas par une lettre minuscule. Sinon, ajoutez un espace à la place, sauf sur la première ligne.

En perl:

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

Techniquement, vous vouliez remplacer "nouvelle ligne suivie d'une lettre minuscule" par "espace et cette lettre minuscule", ce que fait le noyau du script perl ci-dessus:

1. Lisez l'entrée d'une chaîne input.
2. Mettez à jour la inputvariable pour qu'elle soit le résultat de l'opération de recherche et remplacement.
3. Imprimez la nouvelle valeur.

Avec, sedvous pouvez utiliser un N;P;Dcycle (afin d'avoir toujours deux lignes dans l'espace de motif et si le premier caractère après la nouvelle ligne est en minuscules, remplacez la nouvelle ligne par un espace) et un test - de cette façon, après chaque ssubstitution, vous redémarrez le cycle:

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

Utilisation de sedet 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.

Le script sed insère une nouvelle ligne avant chaque ligne commençant par une majuscule (à l'exception de la toute première ligne de saisie). sedLa sortie de est ensuite canalisée fmtpour reformater les paragraphes résultants.

Vous pouvez également l'utiliser parsi vous l'avez installé. C'est un autre reformatage de paragraphe, mais beaucoup plus performant que fmt, avec beaucoup plus de fonctionnalités et d'options.

Notez qu'il y aura une ligne vide entre chaque paragraphe. Les paragraphes doivent être séparés les uns des autres par au moins une ligne vierge. Sans les lignes vides, tout votre échantillon d'entrée est reformaté en un seul paragraphe de plusieurs phrases, par exemple:

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

Si vous devez supprimer les lignes vides après le reformatage, il vous suffit de les rediriger sed- mais cela supprimera TOUTES les lignes vides, y compris celles qui peuvent avoir été dans l'entrée d'origine. par exemple

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

Vous pouvez également le faire:

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

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

C'est le même regex / substitution que la réponse de Jeff