cl:regex-替换和替换中的反斜杠

Question

也许这个问题真的很蠢，但我被困住了。如何在cl-ppcre:regex-replace-all替换中使用反斜杠？

例如，我只想转义一些字符，比如‘“()等，所以我首先要做的是用\\替换，以确保匹配是可以的：

    CL-USER> (princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
"foo \"bar\" 'baz' (test)" "|\\1"))
    PRINTED: foo |"bar|" |'baz|' |(test|)

好吧，让我们把斜杠：

    CL-USER> (princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
"foo \"bar\" 'baz' (test)" "\\\1"))
    PRINTED: foo "bar" 'baz' (test) ;; No luck

不，我们需要两条斜线：

    CL-USER> (princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
"foo \"bar\" 'baz' (test)" "\\\\1"))
    PRINTED: foo \1bar\1 \1baz\1 \1test\1 ;; Got slash, but not \1

也许像这样？

(princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
"foo \"bar\" 'baz' (test)" "\\\{1}"))
PRINTED: foo "bar" 'baz' (test) ;; Nope, no luck here

当然，如果我把空间放在斜线之间，一切都可以，但我不需要它

(princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
"foo \"bar\" 'baz' (test)" "\\ \\1"))
PRINTED: foo \ "bar\ " \ 'baz\ ' \ (test\ )

那么，如何写才能让foo \"bar\" \'baz\' \(test\)打印出来呢？谢谢。

Answer 1

六源斜线

CL-USER> (princ (cl-ppcre:regex-replace-all "(['\\(\\)\"])"
                                            "foo \"bar\" 'baz' (test)"
                                            "\\\\\\1"))
foo \"bar\" \'baz\' \(test\)

在源代码中编写字符串时，每个斜杠都用作转义。您希望替换文本是字符\\1的序列。要对替换中的第一个斜杠进行编码(因为CL将处理斜杠)，CL需要查看字符\\\1的顺序。前两个斜杠编码斜杠，第三个斜杠编码组号。要获得作为Lisp字符串的字符序列，您必须编写"\\\\\\1"。

Answer 2

迟答，但对于其他人，请注意，在这种情况下，最好避免使用字符串：

(cl-ppcre:regex-replace-all '(:register (:char-class #\' #\( #\) #\"))
                            "foo \"bar\" 'baz' (test)"
                            '("\\" 0))