common-lisp
Espressioni regolari

Usando con la corrispondenza del modello per legare i gruppi catturati

Il trivia della libreria di corrispondenza dei pattern fornisce un trivia.ppcre sistema che consente ai gruppi catturati di essere associati alla corrispondenza dei pattern

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

• Nota: la libreria Optima fornisce una funzione simile nel sistema optima.ppcre

Gruppi di registri vincolanti con CL-PPCRE

CL-PPCRE:REGISTER-GROUPS-BIND farà corrispondere una stringa a un'espressione regolare e, se corrisponde, legherà i gruppi di registri nella regex alle variabili. Se la stringa non corrisponde, viene restituito NIL .

(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