Nhận tất cả các kết quả khớp lại trong bộ đệm dưới dạng danh sách

Trên trang web Code Golf Stack Exchange hôm nay, tôi đã tìm thấy câu trả lời này trong Clojure cho câu hỏi "Nhận tất cả các liên kết trên một trang web".

(->> (slurp "http://www.stroustrup.com")
     (re-seq #"(?:http://)?www(?:[./#\+-]\w*)+"))

Không có macro ưa thích, nó chỉ như thế này:

(re-seq #"(?:http://)?www(?:[./#\+-]\w*)+" (slurp "http://www.stroustrup.com"))

Điều này trả về danh sách:

("http://www.morganstanley.com/" "http://www.cs.columbia.edu/" "http://www.cse.tamu.edu" ...)

Tôi có thể làm điều gì đó tương tự trong Emacs Lisp không?

Có lẽ một chức năng như (re-seq regexp (buffer-string))vậy trả về '(firstmatch secondmatch thirdmatch ...)?

Đây là cách bạn có thể làm điều đó dựa trên chuỗi, theo yêu cầu.

(defun re-seq (regexp string)
  "Get a list of all regexp matches in a string"
  (save-match-data
    (let ((pos 0)
          matches)
      (while (string-match regexp string pos)
        (push (match-string 0 string) matches)
        (setq pos (match-end 0)))
      matches)))

; Sample URL
(setq urlreg "\\(?:http://\\)?www\\(?:[./#\+-]\\w*\\)+")
; Sample invocation
(re-seq urlreg (buffer-string))

Có lẽ đáng lưu ý rằng việc gọi occurvới đối số phổ quát sẽ khiến nó chỉ điền vào *Occur*bộ đệm - không có tên tệp, số dòng hoặc thông tin tiêu đề. Khi kết hợp với một nhóm chụp, điều này cho phép một người trích xuất bất kỳ mẫu nào mong muốn.

Ví dụ, C-u M-x occurtheo sau \"\(.*\)\"sẽ nhắc người dùng sẽ thu thập nhóm chụp (mặc định \1), sau đó đặt nội dung của mỗi chuỗi được trích dẫn vào *Occur*bộ đệm.

Tôi có một câu trả lời không thể thiếu cho câu hỏi đó được đăng: /codegolf//a/44319/18848

Sử dụng cùng cấu trúc (while (tìm kiếm) (in)), bạn có thể sửa đổi nó thành một hàm để đẩy các kết quả khớp trong bộ đệm vào danh sách và trả về nó như sau:

(defun matches-in-buffer (regexp &optional buffer)
  "return a list of matches of REGEXP in BUFFER or the current buffer if not given."
  (let ((matches))
    (save-match-data
      (save-excursion
        (with-current-buffer (or buffer (current-buffer))
          (save-restriction
            (widen)
            (goto-char 1)
            (while (search-forward-regexp regexp nil t 1)
              (push (match-string 0) matches)))))
      matches)))

Sử dụng s.elcái này sẽ ngắn hơn, nhưng thật không may, nó cho quá nhiều trận đấu:

(defun all-urls-in-buffer ()
  (s-match-strings-all
   "\\(?:http://\\)?www\\(?:[./#+-]\\w*\\)+"
   (buffer-string)))

Nếu điều này ổn (dù sao thì regex cho URL không hoàn hảo), điều này có thể ngắn hơn và nếu không, thì tôi không nghĩ mình có thể rút ngắn hơn câu trả lời của Alan Shutko.

Hãy để tôi chỉ đề cập đến lý do tại sao tôi nghĩ rằng điều này không được thực hiện trong cốt lõi. Đơn giản vì lý do hiệu quả: không cần phải sao chép, tạo danh sách, chuyển chúng xung quanh và thu gom rác. Thay vào đó, lưu trữ toàn bộ chuỗi dưới dạng bộ đệm và hoạt động với giới hạn khớp số nguyên. Đó là cách occurhoạt động, ví dụ: nó khớp một chuỗi tại một thời điểm và chèn trận đấu vào *occur*. Nó không khớp tất cả các chuỗi cùng một lúc, đưa chúng vào danh sách, lặp trong danh sách để chèn vào *occur*và thu thập danh sách và chuỗi của nó.

Giống như bạn sẽ không viết (do (def x 1) (def x (+ 2 x)))bằng Clojure, theo mặc định, bạn không nên cố gắng để Elisp hoạt động như một ngôn ngữ chức năng. Tôi thích nó nếu có, nhưng chúng tôi phải làm theo những gì chúng tôi có vào lúc này.

Nếu tôi có thể được phép cắm, hãy xem thư viện "m-buffer" của tôi.

(m-buffer-match buffer "foo")

Trả về một danh sách các điểm đánh dấu để phù hợp với foo.