提取正則表達式的匹配？

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))))