AWK 对数字块的行/行进行数字排序

Question

我有一个文本文件：

aa 
80,143
60,312
50,123
20,14
bb
cc
80,163
60,132
50,23
20,48

我希望每次找到一个数字块时从最小数字到最大的行排序...

预期结果应如下所示：

aa 
20,14
50,123
60,312
80,143
bb
cc
20,48
50,23
60,132
80,163

如何调用排序函数来实现呢？

Answer 1

也许最简单的方法是与awk 和朋友一起进行装饰/排序/取消装饰

$  awk '{if(!/[0-9,]/) {c++;d=0} else {d=1} print c "." d "," $0}' file |
   sort -nt, | 
   cut -d, -f2-

aa
20,14
50,123
60,312
80,143
bb
cc
20,48
50,23
60,132
80,163

Answer 2

TXR 语言的最新版本有一个 awk macro，它在 TXR Lisp 语法和语义中实现了 Awk 范式。

可能的解决方案如下所示：

;; sort list of (integer string) by the integer, ascending,
;; then extract the list of strings from the sorted result,
;; and dump it as a list of lines with tprint.

(defun sort-dump (num-rec-pairs)
  (tprint [mapcar second [sort num-rec-pairs < first]]))

;; Awk job

(awk (:begin (set fs "," ofs ","))           ;; set up I/O field separators
     (:let list)                             ;; bind local variable "list"

     ;; if we have two fields ...
     ((= nf 2) (mf int-str)                  ;; map string fields to integers
               (push (list [f 0] rec) list)) ;; push (field rec) pair to list

     ;; if we have one field ...
     ((= nf 1) (sort-dump list)              ;; dump the list
               (set list nil)                ;; clear the list
               (prn))                        ;; print current record

     (:end (sort-dump list)))                ;; dump list at end of awk job

运行：

$ txr sort.tl 数据 啊 20,14 50,123 60,312 80,143 bb 抄送 20,48 50,23 60,132 80,163

Answer 3

这适用于您提供的示例输入，也适用于您未提供的更有趣的输入（请参阅我在您的问题下的评论）：

$ cat tst.awk
function prtArr(        a,b) {
    PROCINFO["sorted_in"] = "@ind_num_asc"
    for (a in arr) {
        for (b in arr[a]) {
            print a, b
        }
    }
    delete arr
}
BEGIN { FS=OFS="," }
/^[0-9,]+$/ { arr[$1][$2]; next }
{ prtArr(); print }
END { prtArr() }

$ awk -f tst.awk file
aa
20,14
50,123
60,312
80,143
bb
cc
20,48
50,23
60,132
80,163

上面使用 GNU awk 4.* 来处理真正的多维数组和 sorted_in。