提取正则表达式的匹配？

Question

我喜欢在没有周围文本的单独缓冲区中看到正则表达式的匹配列表。例如，我喜欢看到在我的HTML文档中定义的所有类名。另外，我希望看到每场比赛的计数。有没有任何emacs库？

例如，如果我有一个文本：

 
add related resources or links 
always respect the original author" 

和正则表达式

 
"re." 

我找的比赛和计数

 
rel: 1 
res: 2 

请注意该版本是由“相关“，资源来自”资源“和”尊重“

Answer 1

(defun my-re-counter (regexp) 
    (interactive "sregexp: ") 
    (let (matches) 
    (goto-char (point-min)) 
    (while (re-search-forward regexp nil t) 
     (let ((match (assoc (match-string 0) matches))) 
     (if match 
      (setcdr match (1+ (cdr match))) 
      (push (cons (match-string 0) 1) matches)))) 

    (pop-to-buffer "*regexp counts*") 
    (erase-buffer) 
    (dolist (match matches) 
     (insert (car match) ": " (int-to-string (cdr match)) "\n")) 
    (goto-char (point-min))))