cl-ppcre: регулярное выражение-замена и обратная косая черта в замене

Может быть, это действительно глупые вопросы, но я застрял. Как я могу поставить обратную косую черту в cl-ppcre:regex-replace-all замена?

Например, я просто хочу экранировать некоторые символы, такие как ' " () и т. Д., Так что сначала я собираюсь сделать с | replace, чтобы убедиться, что сопоставление в порядке:

    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\) печататься? Благодарю.

Источник

2 ответа

Решение

Шесть исходных слэшей

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

Когда вы пишете строку в исходном коде, каждый слэш используется как escape. Вы хотите, чтобы текст замены был последовательностью символов \\1, Для кодирования первой косой черты в замене (поскольку CL-PPCRE будет обрабатывать косые черты), CL-PPCRE необходимо увидеть последовательность символов \\\1, Первые две косые черты кодируют косую черту, а третья кодирует номер группы. Чтобы получить эту последовательность символов в виде строки Lisp, вы должны написать "\\\\\\1",

Источник

Поздний ответ, но для других, обратите внимание, что вы бы преуспели, чтобы избежать строк в таких случаях:

(cl-ppcre:regex-replace-all '(:register (:char-class #\' #\( #\) #\"))
                            "foo \"bar\" 'baz' (test)"
                            '("\\" 0))
Источник
Другие вопросы по тегам