Lisp의 str_replace?

Question

Lisp에서 PHP의 str_replace와 유사한 함수가 있습니까?

(cl-ppcre:regex-replace-all "qwer" "something to qwer" "replace") 
; "something to replace" 

이 quicklisp 통해 설치 : CL-ppcre라는 라이브러리가있다

http://php.net/manual/en/function.str-replace.php

Answer 1

.

Answer 2

표준에는 그러한 기능이 없다고 생각합니다. 정규 표현식 (CL-ppcre)를 사용하지 않으려면, 당신은이를 사용할 수 있습니다

(defun string-replace (search replace string &optional count) 
    (loop for start = (search search (or result string) 
          :start2 (if start (1+ start) 0)) 
     while (and start 
        (or (null count) (> count 0))) 
     for result = (concatenate 'string 
            (subseq (or result string) 0 start) 
            replace 
            (subseq (or result string) 
              (+ start (length search)))) 
     do (when count (decf count)) 
     finally (return-from string-replace (or result string)))) 

편집 : 신 아오야마는이에 "\\\""으로, 예를 들어, 교체하기위한 "\"" 작동하지 않는 것을 지적 "str\"ing". 나는 이제 오히려 성가신 위를 생각하기 때문에 내가 더 나은입니다 Common Lisp Cookbook에 주어진 구현을 제안한다 :

(defun replace-all (string part replacement &key (test #'char=)) 
    "Returns a new string in which all the occurences of the part 
is replaced with replacement." 
    (with-output-to-string (out) 
    (loop with part-length = (length part) 
      for old-pos = 0 then (+ pos part-length) 
      for pos = (search part string 
          :start2 old-pos 
          :test test) 
      do (write-string string out 
          :start old-pos 
          :end (or pos (length string))) 
      when pos do (write-string replacement out) 
      while pos))) 

나는 특히 일반적으로 concatenate보다 성능이 with-output-to-string의 사용 등이있다.