Как конкатенировать линии, соответствующие шаблону?

Question

У меня есть огромный файл, где большинство строк давно, но есть несколько строк, которые всего несколько слов:

 
Here is a long sentence. 
This 
is 
a 
short 
line. 
Here is a long sentence. 
Here is a long sentence. 
This 
is 
another 
short 
line. 
Here is a long sentence. 

Все короткие строки начинаются с уникальными словами. В этом примере короткие строки начинаются с «This» и заканчиваются на «line». И они охватывают ровно столько же строк. Мне нужна команда, которая будет конкатенировать только короткие строки в файле, так что я получаю

 
Here is a long sentence. 
This is a short line. 
Here is a long sentence. 
Here is a long sentence. 
This is another short line. 
Here is a long sentence. 

Есть ли команда, которая будет делать эту работу? Я не хочу писать программу сценария, если мне не нужно ...

Спасибо.

Answer 1

perl -pe's/\n//if ($j ||= /^This$/) &&= !/^line\.$/' 

Использование:

perl -pe'...' file.in >file.out # From file 
perl -pe'...' <file.in >file.out # From STDIN 
perl -i~ -pe'...' file    # "In-place" with backup 
perl -i -pe'...' file    # "In-place" without backup 

Answer 2

sed -e :a -e '/line\.$/{p;d;}' -e '/^This/{N;s/\n/ /g;};ta' file.in > file.out