修改設定檔

系統營運時有時候需要用指令碼來修改設定檔

newlisp下如何修改檔案呢。下面有個簡單的例子，來自別人回答我的問題：

(set 'input-file {/tmp/temp.txt})(set 'lines (parse (read-file input-file)  "\n"))(replace "ENGINE_HOME=" lines "ENGINE_HOME=/opt/engine_home")(write-file input-file (join lines "\n")) 

上面的例子是把/tmp/temp.txt檔案裡的內容讀出來，然後用replace進行文本替換，

"ENGINE_HOME"全部替換成"ENGINE_HOME=/opt/engine_home"

不錯，非常方便。但是並不是什麼時候都能用。

有時候replace函數就是找不到lines裡面的字串，原因不明。因此我有寫了一個規矩的函數，遍曆每一行，然後replace，再寫迴文件。

  (set 'nginx-conf-file (append (env "ENGINE_HOME") "/nginx/conf/carrier.conf"))  (set 'lines (parse (read-file nginx-conf-file)  "\n"))  (set 's (length lines))  (set 'i 0)  (do-until (= i s)    (begin      (replace "ENGINE_HOME" (lines i) (env "ENGINE_HOME"))      (inc i)      ))  (write-file nginx-conf-file (join lines "\n"))

這個例子是用來修改nginx設定檔的，將佔位符ENGINE_HOME全部替換成環境變數裡面的值。

使用了一個do-until進行遍曆。