Соедините несколько строк с помощью начального и конечного шаблона

На основе Sed One -Объяснения вкладышей, часть I :Интервал между файлами, нумерация, преобразование текста и замена , 39. Добавлять строку к следующей, если она заканчивается символом обратная косая черта "\" , но с заменой обратной косой черты на запятую и расширением замены, включающим следующие пробелы:

$ sed -e :a -e '/,$/N; s/,\n[[:blank:]]*/,/; ta' file
method AAA one (1,111):
   some_text_1
method BBB two (2,222):
   tuesday
method CCC three (3,333):
   sunny_day
method DDD four (4,444_a,444_b):
   last_week

Мы устанавливаем петлю do-whileс несколькими условиями прорыва, как показано.

В строке
• нет строки метода, прорыв.
• линия полностью сформирована, имеет метод, а также ):в ней прорыв
• последняя строка, выйти
• для каждой второй строки соедините ее с помощью next и удалите соединяющие пробелы (s ).

sed -e '
  :loop
    /method/!b
    /method.*):/b
    $q
    N;s/\n\s*//
  b loop
' file.txt

Выход:

method AAA one (1,111):
   some_text_1
method BBB two (2,222):
   tuesday
method CCC three (3,333):
   sunny_day
method DDD four (4,444_a,444_b):
   last_week

Сawk:

awk 'f{sub(/^[[:space:]]+/, "")} {f=/,$/; ORS = f ? "" : RS} 1'

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

С помощью perl, при условии, что ввод достаточно мал, чтобы его можно было обработать как одну строку:

perl -0777 -pe 's/,\n\s*/,/g'

Приведенные выше решения не сработают, если у вас есть строки, оканчивающиеся на ,, которые не являются частью функции method. В таких случаях, предполагая, что для части methodбудет только одна пара символов (), вы можете использовать:

perl -0777 -pe 's/method[^(]+\([^)]+\)/$&=~s|\n\s*||gr/ge'

Здесь method[^(]+\([^)]+\)будет соответствовать от methodдо первых (и )символов. Раздел замены содержит другой код Perl, который будет воздействовать на совпадающую часть, чтобы удалить новые строки, за которыми следуют необязательные символы пробела.

Другой sed'er (POSIX):

sed ':a;/^method/!b;/[^:]$/N;s/[[:space:]]*\n[[:space:]]*/ /g;ta'

• Этикетка DEF:a
• Пространство шаблона IF не начинается с method
  • ТОГДА перейти к концу наb
• ELSE, если не заканчивается на :
  • ТОГДА добавьте следующую строку, используя N.
• ЗАМЕНИТЬspaces*+ \n+spaces*на ' '
  • ЕСЛИ произошла замена,вернуться к:a
• КОНЕЦ печати

Должен обрабатывать такие случаи, как:

method XXX foo (8,
    888):
   bar,
   baz

method
HHH
bar
(
aa,
bb):
    lor

Добавляет дополнительные пробелы вокруг параметров.

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

awk 'function del_space(){gsub(/^\s+/,""); };
/,$/ {if (NR==l) del_space(); a=a $0; l=NR+1; next}
NR==l{del_space(); $0=a $0; a=""}1' file

Пока в конце строки находится запятая, переменная aсохраняет текущую входную запись ($0), за которой следует пробел, а затем предыдущая запись. nextпредотвращает дальнейшие действия с этой записью, т. е. не будет печати, если в конце команды используется идиома awk's 1для печати.

В следующей записи после сопоставления шаблона $0=a $0;a="";устанавливает текущую входную запись($0)на a, за которой следует старая $0и переменная aна ""соответственно.

Функция del_space()заменяет пробел с начала следующей записи после того, как ,находится в конце записи.

Если вы хотите поставить пробел после запятой, то это следует изменить на это:

awk 'function del_space(){gsub(/^\s+/,""); };
/,$/ {if (NR==l) del_space(); a=a $0; l=NR+1; next}
NR==l{del_space(); $0=a FS $0; a=""}1' file

Другой Posix sedспособ:

sed '
  /,$/bl
  be
  :l
    N
    s/\n *//g
    /):$/!bl
  :e
' data

• При нахождении строки, заканчивающейся запятой, переход к метке l:/,$/bl

  • В противном случае перейдите кe(Пустая этикетка, здесь только для печати):be

• метка lэмулирует цикл следующим образом:

  • Получить следующую строку:N

  • Замените новую строку и начальные пробелы на эту:s/\n *//g

  • Если текущие строки НЕТ заканчиваются на ):, то повторите цикл и снова возьмите другую строку (и повторите все):/):$/!bl

  • В противном случае введите метку eи напечатайте строку.