批改配置文件

修改配置文件

系统运维时有时候需要用脚本来修改配置文件

newlisp下如何修改文件呢。下面有个简单的例子，来自别人回答我的问题：

  (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进行遍历。