sorting - emacs 使用 sort-regexp-fields 对行进行排序

Question

我如何使用sort-regexp-fields来模拟排序数字字段。我尝试过这样的:

123
345
90
80
1999

M-x 排序正则表达式字段

正则表达式指定要排序的记录:\([0-9]+\)

正则表达式指定记录中的键:\,\#1

但是这行不通。 我真正想要排序的是这样的:

foo index: 123
index: 345 boo
…

问题是:我想按“index”一词后面的数字对行进行排序，但该数字不在同一字段中，它们前面只有一个“index”一词。我应该做什么来完成这个？有人可以帮助我吗？

Answer 1

sort-regexp-fields 不进行字典比较，并且没有简单的方法可以让它做到这一点。也就是说，我们可以使用一个技巧来定义我们自己的命令，并使用该命令向字典比较中的鞋拔子发出一些建议。

只要您标记要比较的行周围的区域，以下命令就会执行您想要的操作:

(defun my-line-sort (begin end)
  (interactive "r")
  (sort-regexp-fields nil "^.*: +\\([0-9]+\\).*$" "\\1" begin end))

(defun compare-buffer-substrings-lexigraphically (b1 b2)
  (< (string-to-number (buffer-substring-no-properties (car b1) (cdr b1)))
     (string-to-number (buffer-substring-no-properties (car b2) (cdr b2)))))

(defadvice sort-subr (before sort-subr-lexical-compare activate)
  "In special case, force predicate to be a lexical compare"
  (when (eq this-command 'my-line-sort)
    (ad-set-arg 5 'compare-buffer-substrings-lexigraphically)))