如何逆转文本块的顺序

Question

如何仅使用像sed和cat这样的bash命令来恢复某些文本块的顺序？ 我想要的是像tac，但不是逐行操作，而是逐块操作。 例：

从

/Section 3/
Rabbits
Dogs
Cats

/Section 2/
Eagles
Mice

/Section 1/
Dogs
Rabbits
Lemmings

至

/Section 1/
Dogs
Rabbits
Lemmings

/Section 2/
Eagles
Mice

/Section 3/
Rabbits
Dogs
Cats

在某些文件中，块的开头用斜杠标记，如上例所示。 在其他情况下，块仅通过它们之间存在一个或多个空行来标记。

Answer 1

在emacs ，您可以使用sort-paragraphs命令：

Ctrl-x h Meta-x sort-paragraph 回车

---

在vim ： https ： //superuser.com/questions/365094/sort-file-per-paragraph-in-vim

---

使用基本的unix工具：

awk -F'\n' -vRS='' -vOFS=',' '{$1=$1}1' input.txt |
    sort |
        tr ',' '\n' |
            sed 's@^/@\n/@'

我用awk将数据转换为csv ，然后sort的csv ，最后我改造csv回到列表样式。

---

结果：

/Section 1/
Dogs
Rabbits
Lemmings

/Section 2/
Eagles
Mice

/Section 3/
Rabbits
Dogs
Cats

---

编辑 ：对不起，我没有仔细看你的问题。 您可以将sort命令更改为tac以反转顺序。

Answer 2

如果有空白行分隔所有块，

awk 'BEGIN{ORS=RS RS;RS=""}{a[NR]=$0}END{for(i=NR;i>0;i--)print a[i]}'

Answer 3

使用csplit将它们拆分为单独的文件，将生成的文件名放入另一个文件中，然后使用tac获取要合并的文件名。

Answer 4

你的例子中的块分开了什么？ 2个换行符。 在Emacs Lisp中，如果文本是字符串，如果安装了dash和s ，则可以使用以下两个等效表达式之一：

(s-join "\n\n" (nreverse (s-split "\n\n" s))) ; where s is your string
(->> s (s-split "\n\n") nreverse (s-join "\n\n"))

->>是一个破折号的线程宏，它拉s ，通过连续的函数调用。 想想* nix管道 ： s | s-split "\\n\\n" | nreverse | s-join "\\n\\n" s | s-split "\\n\\n" | nreverse | s-join "\\n\\n" s | s-split "\\n\\n" | nreverse | s-join "\\n\\n" 。

如果你想要一个打开文件的Emacs Lisp函数，反转块然后将它保存回相同的文件，你也可以安装f文件操作库：

(defun reverse-blocks (f)
  "F is a filename."
  (interactive "fFind file: ") ; letter `f` is filename goes in first arg
  (let ((s (f-read f))) ; read file into a string
    (--> s
         s-chomp ; remove trailing newline
         (s-split "\n\n" it)
         nreverse
         (s-join "\n\n" it)
         (f-write it 'utf-8 f)))) ; write to the same file

在这里，我用另一个尾随宏--> ，它允许把在参数前面计算的结果表示it的下一个计算。 例如，如果nreverse的结果是X ，那么等价物将是(s-join "\\n\\n" X) 。 最后，假设您不只是想要反转，而是根据“Section”之后的数字对块进行排序：

(--sort (< (string-to-number (cadr (s-match "/.*?\\([0-9]\\)/" it)))
           (string-to-number (cadr (s-match "/.*?\\([0-9]\\)/" other))))
        it) ; put it instead of nreverse

其中，使用dash-functional相当于：

(--sort (-on '<
             (-compose 'string-to-number
                       'cadr
                       (-partial 's-match "/.*?\\([0-9]+\\)/")))
        it) ; put it instead of nreverse

阅读dash文档来了解，什么-on ， -compose ， -partial做。