Lua检测全局表重复赋值

-----------------------------------------------------------------------
-- 设置记录所有欲加载脚本文件的ini路径，从参数一读入
-- 此ini文件包含如下&＃26684;式：
-- [AllScript]
-- testa
-- testb
local _TxtFile = arg[1] or ""
if "" == _TxtFile then  
    return "未指定记录所有欲加载脚本文件的ini路径"
end
local _FilePath = _TxtFile:sub(1, _TxtFile:len() - _TxtFile:reverse():find("\\") &＃43; 1)
-----------------------------------------------------------------------
-- 读取脚本文件列表
local io, string = io, string
local file, msg = io.open(_TxtFile)
if not file then    
    return msg
end
local tFile = file:read("*all")
file:close()
local _, nPos = tFile:find("%[(.&＃43;)%]")
if not nPos then
    return "没有找到脚本文件列表字段"
end
local FileExists = function(file)
    local f = io.open(file)
    if not f then
        return false
    end
    f:close()
    return true
end
local _FileTable = {}       -- 脚本文件列表
local tList = tFile:sub(nPos &＃43; 1)
for v in tList:gmatch("(%w&＃43;)") do
    --local s = string.format("%s%s.dat", _FilePath, v)
    --if FileExists(s) then
    --  _FileTable[#_FileTable &＃43; 1] = s
    --else
        s = string.format("%s%s.lua", _FilePath, v)
        if FileExists(s) then
            _FileTable[#_FileTable &＃43; 1] = s
        end
    --end
end
-----------------------------------------------------------------------
-- 核心检测_G重复赋&＃20540;
local rawget, getinfo = rawget, debug.getinfo
local _ProxyG = {}      -- 代理全局表
local _VarTable = {}    -- 变量表，变量对应所在文件，所在行
setmetatable(_G, {
    __newindex = function (t, n, v)     
        if rawget(_ProxyG, n) == nil then
            _VarTable[n] = {}
            _ProxyG[n] = v
        end
        local info = getinfo(2, "Sl")
        _VarTable[n][#_VarTable[n] &＃43; 1] = {info.short_src, info.currentline}
    end,
    __index = function (t, n)       
        return _ProxyG[n]
    end
})
-----------------------------------------------------------------------
-- 加载脚本文件
for i, v in ipairs(_FileTable) do
    local f, msg = loadfile(v)
    if not f then
        return msg
    end
    f()
end
-----------------------------------------------------------------------
-- 构造结果信息
local nPos = _FilePath:len() &＃43; 1
local msgTable = {}
for n, t in pairs(_VarTable) do
    if #t > 1 then
        msgTable[#msgTable &＃43; 1] = string.format("%s 变量在以下文件出现：", n)
        for i, v in ipairs(t) do
            local str = v[1]:sub(nPos)  -- 防止出现\
            if str:byte() == 92 then
                str = str:sub(2)
            end
            msgTable[#msgTable &＃43; 1] = string.format("     %s 第%d行", str, v[2])
        end
    end
end
local msg = table.concat(msgTable, "\r\n")
if "" == msg then
    msg = "检测完成，未发现任何重复赋&＃20540;的变量"
end
return msg