Lua 检测全局表重复赋值

若要检测全局表的赋值情况，可以通过接管全局表的赋值操作来进行判断。示例代码如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

----------------------------------------------------------------------- -- 设置记录所有欲加载脚本文件的ini路径，从参数一读入 -- 此ini文件包含如下格式： -- [AllScript] -- testa -- testb local _TxtFile = arg[ 1]  or  "" if  "" == _TxtFile  then        return  "未指定记录所有欲加载脚本文件的ini路径" end local _FilePath = _TxtFile:sub( 1, _TxtFile:len() - _TxtFile:reverse():find( "\\") +  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( "%[(.+)%]") 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 +  1) for v  in tList:gmatch( "(%w+)")  do      --local s = string.format("%s%s.dat", _FilePath, v)      --if FileExists(s) then      --  _FileTable[#_FileTable + 1] = s      --else         s =  string. format( "%s%s.lua", _FilePath, v)          if FileExists(s)  then             _FileTable[#_FileTable +  1] = s          end      --end end ----------------------------------------------------------------------- -- 核心检测_G重复赋值 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] +  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() +  1 local msgTable = {} for n, t  in pairs(_VarTable)  do      if #t >  1  then         msgTable[#msgTable +  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 +  1] =  string. format( "     %s 第%d行", str, v[ 2])          end      end end local msg =  table.concat(msgTable,  "\r\n") if  "" == msg  then     msg =  "检测完成，未发现任何重复赋值的变量" end return msg