Добавить строки с помощью Perl

Question

Мои строки ввода:

Movies: Action
Adventure
Biography
Comedy
Books:
Biography
Romance
Sci-Fi
War

Моя проблема (реализована в Perl): проверить, как выглядит строка, и если она заканчивается на ":", добавьте следующую строку к ней.

В моем примере он соединяет строку, содержащую «Книги:», со строкой, содержащей «Биографию», но это только один пример - содержимое строк может отличаться во многих отношениях.

Movies: Action
Adventure
Biography
Comedy
Books: Biography
Romance
Sci-Fi
War

Answer 1

Можно использовать утверждение с предварительным просмотром:

s/(?<=:)\s*\n/ /gs;

Answer 2

Вот небольшая программа для работы с вашим вводом:

while (<>) {
  s/\s+$/ / if /:$/;
  print;
}

Поскольку структура в точности соответствует опции -p, вы можете сделать это в одной строке из вашей оболочки:

perl -pe 's/\s*/ / if /:$/' text_file

Answer 3

что-то вроде $text =~ s/:\s*\n/: /msg;

Answer 4

Вы можете сделать:

perl -pe 's/\r?\n$/ / if(/:\s*$/)' file

или

perl -pe 'chomp if(/:\s*$/)' file 

, если у вас все в порядке с отсутствием пробела после :.