common-lisp
Normale uitdrukkingen

Gebruiken met patroonovereenkomst om vastgelegde groepen te binden

De trivia-bibliotheek voor patroonaanpassing biedt een systeem trivia.ppcre waarmee vastgelegde groepen kunnen worden gebonden via patroonaanpassing

(trivia:match "John Doe"
  ((trivia.ppcre:ppcre "(.*)\\W+(.*)" first-name last-name)
   (list :first-name first-name :last-name last-name)))

;; => (:FIRST-NAME "John" :LAST-NAME "Doe")

• Opmerking: de bibliotheek Optima biedt een vergelijkbare voorziening in het systeem optima.ppcre

Bindende registergroepen met CL-PPCRE

CL-PPCRE:REGISTER-GROUPS-BIND een tekenreeks aan een reguliere expressie en bindt registergroepen in de regex aan variabelen als deze overeenkomen. Als de tekenreeks niet overeenkomt, wordt NIL geretourneerd.

(defun parse-date-string (date-string)
  (cl-ppcre:register-groups-bind
      (year month day)
      ("(\\d{4})-(\\d{2})-(\\d{2})" date-string)
    (list year month day)))

(parse-date-string "2016-07-23") ;=> ("2016" "07" "23")
(parse-date-string "foobar")     ;=> NIL
(parse-date-string "2016-7-23")  ;=> NIL