Lispのstr_replaceですか？

Question

LispのPHPのstr_replaceに似た関数がありますか？

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

Answer 1

CL-ppcreと呼ばれるライブラリがあります：

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

はquicklispを経由して、それをインストールします。

Answer 2

このような機能は標準ではないと思います。

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

はEDIT：新青山はこれがで"\\\""で、例えば、"\""を交換するために動作しないことを指摘し、あなたが正規表現（CL-ppcre）を使用したくない場合は、これを使用することができます"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))) 

I特に一般concatenateより良好に機能with-output-to-stringの使用、などが挙げられます。