如何從流程輸出中刪除換行符？

Question

我叫git獲取頂層目錄（根據 Is there a way to get the git root directory in one command? ）。

(let ((tmpbuffer (get-buffer-create (make-temp-name "git")))) 
    (call-process "git" nil tmpbuffer nil "rev-parse" "--show-toplevel") 
    (with-current-buffer tmpbuffer 
    (with-output-to-string 
     (princ (buffer-string)) 
     (kill-buffer)))) 

但是有返回的字符串的換行符。我不知道如何擺脫它。

Answer 1

我認爲你可以做

(replace-regexp-in-string "\n$" "" 
       (shell-command-to-string "git rev-parse --show-toplevel")) 

Answer 2

如果你只是想刪除在輸出的最後一個換行符，使用

(replace-regexp-in-string "\n\\'" "" 
    (shell-command-to-string "git rev-parse --show-toplevel")) 

接受的答案也取代換行符對（ （"\n"），因爲$匹配字符串末尾或換行符後，而\\'只匹配字符串的末尾。