#!/usr/bin/env gbs2
' This script returns the memory really used by the system, the cache and swap being excluded.
FUNCTION GetUsedMemory() AS Integer
DIM sRes AS String
DIM aRes AS String[]
DIM cVal AS NEW Collection
DIM sVal AS String
EXEC ["cat", "/proc/meminfo"] TO sRes
FOR EACH sVal IN Split(sRes, "\n", "", TRUE)
aRes = Split(sVal, " ", "", TRUE)
cVal[Left$(aRes[0], -1)] = CInt(aRes[1])
NEXT
RETURN cVal!MemTotal - cVal!MemFree - cVal!Buffers - cVal!Cached + cVal!SwapTotal - cVal!SwapFree - cVal!SwapCached
END
PRINT Subst("Used memory: &1 Kb", GetUsedMemory())
2) ติดตั้ง gbs2 ซะก่อน
sudo apt-get install gambas2-script3) รันสคริปด้วยคำสั่ง (ในที่นี้ตั้งชื่อไฟล์ script เป็น myscript)
gbs2 myscript4) จบครับพี่น้องสำหรับ ตัวอย่าง script gambas2
อ้างอิง
- http://gambasdoc.org/help/doc/release?view
- http://gambasdoc.org/help/lang
- http://forum.ubuntuclub.com/forum/topic,13212.120.html
No comments:
Post a Comment