어떤 언어가 좋을까요?

#!/usr/bin/env gbs3
 
' 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())