如何运行缓冲区的总和

Question

所以，从我的日志文件中，我处理了一些字符串，最终得到了这个结果，假设缓冲区名称"1"

12
23
34
45

如何获得给定缓冲区的总和？

(defun sum-of-buffer (buf)
  (interactive "bBuffer Name: ")
   ....
  (message "%i" sum))

还是有方便的功能组合？

Answer 1

如何使用calc - 选择矩形形状的区域 - 然后键入：C-u C-x * :

或者，怎么样？

(let ((sum 0))
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "[0-9]*\.?[0-9]+" nil t)
      (setq sum (+ sum (string-to-number (match-string 0))))))
  sum)

Answer 2

如果你使用的是 Unix 机器，C-x h M-|然后awk '{s+=$1} END {print s}'。