Сгруппированная сортировка непрерывных абзацев (разделенный пустой строкой)?

Если у Вас есть GNU awk доступный, Вы могли бы отсортировать каждый блок с помощью встроенного asort() функция. Что-то вроде этого:

blocksort.awk

function sort_n_print(array) {
  asort(array)
  for(i=1; i<=length(array); i++)
    print array[i]
  delete array
}

NF { a[++x] = $0 }

!NF { sort_n_print(a); print }

END { sort_n_print(a) }

Выполните его как это:

awk -f blocksort.awk infile

awk -v RS= -v cmd=sort '{print | cmd; close(cmd); print ""}' file

Установка разделителя записей RS к пустой строке заставляет awk ступить в абзацы за один раз. Для каждого абзаца передайте абзац по каналу (в $0) к cmd (который установлен на sort) и распечатайте вывод. Распечатайте пустую строку для разделения выходных абзацев с a print "".

Если мы даем примеры жемчуга, то я представляю альтернативный подход, чем тот из Stephane:

perl -e 'undef $/; print join "\n", sort (split /\n/), "\n" 
    foreach(split(/\n\n/, <>))' < file

Сбросьте разделителя полей (undef $/), это позволяет нам использовать <> и получите весь STDIN. Мы затем split это вокруг \n\n (абзацы). foreach "абзац", sort строки splitзвон вокруг новых строк, sortлуг и затем joinлуг их назад вместе и лавирующий на запаздывании \n.

Однако это имеет один побочный эффект добавления "запаздывающего абзаца" разделитель в последнем абзаце (если это не имело того прежде). Можно обойти это с немного менее симпатичным:

perl -e 'undef $/; print join "\n", sort (split /\n/) , (\$_ == \$list[-1] ? "" : "\n")
    foreach(@list = split(/\n\n/, <>))' < file

Это присваивает абзацы @list, и затем существует "троичная операция", чтобы проверить, является ли это последний элемент foreach ( \$_ == \$list[-1] проверьте).печать "" если это (? ...), еще (: ...) печать "\n" для всех других "абзацев" (элементы @list).

Я написал инструмент на языке haskell, который позволяет вам использовать sort, shuf, tac или любую другую команду для абзацев текста.

https://gist.github.com/siers/01306a361c22f2de0122
РЕДАКТИРОВАТЬ: инструмент также включен в это репо: https://github.com/siers/haskell-import-sort

Он разбивает текст на блоки, объединяет подблоки с помощью символа \ 0 , передает команду по конвейеру и, наконец, делает то же самое в обратном порядке.

28-08-2015 : Я нашел другое, личное использование этого инструмента - выделение N абзацев после строки.

paramap grep -aA2 '^reddit usernames' < ~/my-username-file
reddit usernames

foo
bar
baz

a couple
more of these

TXR Шаг за шагом Lisp:

$ cat data
Echo
Alpha
Delta
Charlie

Golf
Bravo
Hotel
Foxtrot

$ txr -p '(get-lines)' < data
("Echo" "Alpha" "Delta" "Charlie" "" "Golf" "Bravo" "Hotel" "Foxtrot")

$ txr -t '(get-lines)' < data
Echo
Alpha
Delta
Charlie

Golf
Bravo
Hotel
Foxtrot

$ txr -p '(partition* (get-lines) (op where [chain length zerop]))' < data
(("Echo" "Alpha" "Delta" "Charlie") ("Golf" "Bravo" "Hotel" "Foxtrot"))

$ txr -p '[mapcar sort (partition* (get-lines) (op where [chain length zerop]))]' < data
(("Alpha" "Charlie" "Delta" "Echo") ("Bravo" "Foxtrot" "Golf" "Hotel"))

$ txr -p '(interpose (list "") [mapcar sort (partition* (get-lines) (op where [chain length zerop]))])' < data
(("Alpha" "Charlie" "Delta" "Echo") ("") ("Bravo" "Foxtrot" "Golf" "Hotel"))

$ txr -t '(interpose (list "") [mapcar sort (partition* (get-lines) (op where [chain length zerop]))])' < data
Alpha
Charlie
Delta
Echo

Bravo
Foxtrot
Golf
Hotel

Ссылки: get-lines , раздел * , op , где , цепочка , длина , zerop , mapcar , вставьте .