newlisp获取并计算内存负载

最新推荐文章于 2021-05-13 08:52:54 发布

炼气散人

最新推荐文章于 2021-05-13 08:52:54 发布

阅读量2.8k

点赞数

分类专栏： # 系统管理

本文链接：https://blog.csdn.net/csfreebird/article/details/13384245

版权

系统管理专栏收录该内容

24 篇文章 0 订阅

订阅专栏

下面的代码计算Linux下的内存负载

#!/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 "/mem.log") (append "\n" (string (now 480)) " "))
  (append-file (append cur-path "/mem.log") (append  ": " msg))
  )

(define (check-mem)
  (set 'in-file (open "/proc/meminfo" "read"))
  (set 'line1 (read-line in-file))
  (set 'line2 (read-line in-file))
  (set 'line3 (read-line in-file))
  (set 'line4 (read-line in-file))
  (add-log line1)
  (add-log line2)
  (add-log line3)
  (add-log line4)
  (set 'total-mem (int ((parse line1) 1)))
  (set 'free-mem (int ((parse line2) 1)))
  (set 'buffer-mem (int ((parse line3) 1)))
  (set 'cached-mem (int ((parse line4) 1)))
  (set 'll (div (- (- (- total-mem free-mem) buffer-mem) cached-mem) (int total-mem)))
  (add-log (string ll))
)

(check-mem)

(exit)