【Lua Snippet】打印_G表

suixin812

Rainmeter 4.0beta r2620

Lua scripting: Corrected an issue where anything defined in the Initialize() function of a Lua script was treated as "global" across all skins using Lua, which could cause "bleeding" of defined variables between skins, or between script measures in a single skin. Each Lua measure will now run in an entirely separate local context.

r2620版本后，不同皮肤和Measure不再共用一个_G表。
无法再通过_G[1]的方式指向另一个Lua Measure实例中的全局变量，
也无法再通过_G表来在多个Lua Measure实例中共享数据。

-------------------------------

我们知道Rainmeter的Lua环境与标准的Lua 5.1环境是不同的，
一些库和函数是被禁用的，比如debug库或require函数。
此外Lua本身不同版本之间也存在某些函数的被废弃的情况。所以，我们可以通过打印_G表来了解哪些函数存在，哪些函数不存在
因为_G表里储存了所有全局变量

下面这段代码向Rainmeter的安装目录中的test.txt打印了_G表中的所有内容
这里不包含_G[1]、_G[2]等储存了Lua Measure实例的全局变量的表

1. 
   
2.         local gt = { }
   
3.                 --用来记录_G中所有的表及其键与值
   
4.         local fo = io.open('test.txt','w')
   
5.                 --输出到这个文件
   
6.         local unpack_g
   
7.                 --定义将_G表中的项目记录到gt中的函数
   
8.         unpack_g = function (k, v, t, pn)
   
9.                 if not t or not gt[t] then
   
10.                         --函数被初次调用时
    
11.                         --形如unpack_g(_, _G, _, '_G')
    
12.                         v = v or _G
    
13.                         t = v
    
14.                         k = 'nil'
    
15.                         pn = pn or '_G'
    
16.                         gt[t] = gt[t] or {}
    
17.                         gt[t]['name'] = pn or '_G'
    
18.                 end
    
19.                 --函数被嵌套调用时
    
20.                 if type(v) == 'bool' then
    
21.                         gt[t]['boo'] = gt[t]['boo'] or {}
    
22.                         gt[t]['boo'][k] = tostring(v)
    
23.                 elseif type(v) == 'number' then
    
24.                         gt[t]['num'] = gt[t]['num'] or {}
    
25.                         gt[t]['num'][k] = v
    
26.                 elseif type(v) == 'string' then
    
27.                         gt[t]['str'] = gt[t]['str'] or {}
    
28.                         gt[t]['str'][k] = ('%q'):format(v:sub(1,20))
    
29.                 elseif type(v) == 'function' then
    
30.                         gt[t]['foo'] = gt[t]['foo'] or {}
    
31.                         gt[t]['foo'][k] = 'function()'
    
32.                 elseif type(v) == 'userdata' then
    
33.                         gt[t]['usr'] = gt[t]['usr'] or {}
    
34.                         gt[t]['usr'][k] = 'userdata'
    
35.                 elseif type(v) == 'table' then
    
36.                         gt[t]['tb'] = gt[t]['tb'] or {}
    
37.                         if gt[v] and k~='nil' then
    
38.                                 --键k指向一个gt已经记录了的表
    
39.                                 --则只记录表的名字
    
40.                                 gt[t]['tb'][k] = gt[v]['name']
    
41.                         else
    
42.                                 --键k指向一个gt未记录的表
    
43.                                 --或当前为函数的初次调用时
    
44.                                 --则记录这个表及其键与值
    
45.                                 gt[t]['tb'][k] = k~='nil' and '{}' or nil
    
46.                                 if k == 'gt' or (t==_G and type(k) == 'number') then
    
47.                                         --不打印当前定义的gt表
    
48.                                         --不打印_G[1]等表
    
49.                                         return
    
50.                                 end
    
51.                                 gt[v] = gt[v] or {}
    
52.                                 gt[v]['name'] = pn or gt[t]['name']..'['..k..']'
    
53.                                 t = v
    
54.                                 for k, v in pairs(t) do
    
55.                                         unpack_g(k, v, t)
    
56.                                                 --嵌套调用unpack_g
    
57.                                 end
    
58.                         end
    
59.                 end
    
60.         end
    
61.         --开始记录，从_G表开始
    
62.         unpack_g(_, _G, _, '_G')
    
63.         --对项目进行排序
    
64.         local gti = {}
    
65.         for _, p in pairs(gt) do
    
66.                 table.insert(gti, p)
    
67.         end
    
68.         table.sort(gti, function(a,b) return a['name'] < b['name'] end)
    
69.         --开始打印
    
70.         for _, p in ipairs(gti) do
    
71.                 fo:write(p['name'], '\t=\t{}\n')
    
72.                 for _, tp in ipairs{'boo', 'num', 'str', 'foo', 'usr', 'tb'} do
    
73.                         if p[tp] then
    
74.                                 local ti = {}
    
75.                                 for k, v in pairs(p[tp]) do
    
76.                                         table.insert(ti,{tostring(k), v})
    
77.                                 end
    
78.                                 table.sort(ti, function(a,b) return a[1] < b[1] end)
    
79.                                 for _, sp in ipairs(ti) do
    
80.                                         fo:write(p['name'], '[', sp[1],']\t=\t',sp[2],'\n')
    
81.                                 end
    
82.                         end
    
83.                 end
    
84.                 fo:write('\n')
    
85.         end
    
86.         fo:close()
    
87.         fo = nil
    
88.         --清空记录，避免垃圾回收障碍
    
89.         gt = nil
    
90.         gti = nil
    

复制代码

其中 gt表的结构为

1. 
   
2. gt[_G] = {        name = '_G',
   
3.                 num = {}
   
4.                 num['num1'] = 1,
   
5.                 num['num2'] = 2
   
6.                 str = {}
   
7.                 foo = {}
   
8.                 tb
   
9.         }
   

复制代码

下面为打印结果的部分截图

_G

风过秋山

真牛！有技术的男人充满魅力啊！

yking1997

lua,有时间要学习学习

0。.

不明觉厉......

AkaJervis

什么东东

时崎`狂三

总感觉很犀利的样子

q1237

好厉害 下载了

xjzpltz

顶一下顶一下顶一下

AVegetarianMing

感谢楼主分享