英文:
common lisp: looking for a library which works like (str:string-case BUT with regular expessions
问题
我正在尝试将一个 AWK 脚本改写成 Common Lisp（作为一种学习练习）。
我需要类似下面的代码：
(case field
((:regex "FODL.*") (do-something)))
（尝试匹配字段的正则表达式 "FODL.*"）
英文:
I am trying to rewrite an AWK script in Common Lisp (as a kind of learning exercise)
I need something like:
(str:string-case field
("FODL.*" (do something)))
(try to match the regex "FODL.*" for a field)
答案1
得分: 4
根据翻译脚本的复杂程度，你可以使用简单的cond + ppcre，或者更复杂一些的trivia模式匹配，它还包含基于ppcre的模式贡献：
(ql:quickload :cl-ppcre)
(ql:quickload :trivia)
(ql:quickload :trivia.ppcre)
(use-package '(:trivia :trivia.ppcre))
(match "other"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> :OTHER
(match "some"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> NIL
(match "something"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> :SOME
以上是翻译好的内容。
英文:
depending on the translated script complexity, you can use something as simple as cond + ppcre, or something more sophisticated, like trivia pattern matching, which also has ppcre based patterns contrib:
(ql:quickload :cl-ppcre)
(ql:quickload :trivia)
(ql:quickload :trivia.ppcre)
(use-package '(:trivia :trivia.ppcre))
(match "other"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> :OTHER
(match "some"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> NIL
(match "something"
((ppcre "som[e|a].") :some)
((ppcre "^oth") :other))
;;=> :SOME
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论