newlsip 检查磁盘分区使用情况
主要还是用df -k这个命令，然后将输出结果全部逐行解析，最后调用REST API，发送给服务器保存。
参考代码：
#!/usr/bin/newlisp(set 'cur-path "/opt/detector")(load (append cur-path "/config.lsp"))(define (add-log msg) (println msg) (append-file (append cur-path "/disk.log") (append "\n" (string (now 480)) " ")) (append-file (append cur-path "/disk.log") (append ": " msg)) )(define (process-record record) (add-log record) (set 'l (parse record)) (set 'type (last l)) (set 'a (int (l 1))) (set 'b (int (l 2))) (if (and a b) (begin (set 'll (div b a)) ;; (add-log (format "%lld,%lld,%f" a b ll)) (set 'data (format "ip=%s&hostName=%s&type=fs_%s&values=%lld|%f" ip host_name type (date-value) ll)) (add-log data) (set 'r3 (post-url (format "http://%s/wind_tunnel/api/post/data" server) data)) (add-log r3))))(define (check-disk) (set 'r (exec "df -k")) (pop r) (dolist (x r) (process-record x)))(check-disk)(exit)
