local print = print
local tconcat = table.concat
local tinsert = table.insert
local srep = string.rep
local type = type
local pairs = pairs
local tostring = tostring
local next = nextfunction print_lua_table (lua_table, indent)if not lua_table or type(lua_table) ~= "table" thenreturn;endindent = indent or 0for k, v in pairs(lua_table) doif type(k) == "string" thenk = string.format("%q", k)endlocal szSuffix = ""if type(v) == "table" thenszSuffix = "{"endlocal szPrefix = string.rep("    ", indent)formatting = szPrefix.."["..k.."]".." = "..szSuffixif type(v) == "table" thenprint(formatting)print_lua_table(v, indent + 1)print(szPrefix.."},")elselocal szValue = ""if type(v) == "string" thenszValue = string.format("%q", v)elseszValue = tostring(v)endprint(formatting..szValue..",")endend
end

a = {}
a.a = {hello = {alpha = 1 ,beta = 2,},world =  {foo = "ooxx",bar = "haha",root = a,
    },
}
a.b = {test = a.a
}
a.c = a.a.hello

local print = print
local tconcat = table.concat
local tinsert = table.insert
local srep = string.rep
local type = type
local pairs = pairs
local tostring = tostring
local next = nextfunction print_r(root)local cache = {  [root] = "." }local function _dump(t,space,name)local temp = {}for k,v in pairs(t) dolocal key = tostring(k)if cache[v] thentinsert(temp,"+" .. key .. " {" .. cache[v].."}")elseif type(v) == "table" thenlocal new_key = name .. "." .. keycache[v] = new_keytinsert(temp,"+" .. key .. _dump(v,space .. (next(t,k) and "|" or " " ).. srep(" ",#key),new_key))elsetinsert(temp,"+" .. key .. " [" .. tostring(v).."]")endendreturn tconcat(temp,"\n"..space)endprint(_dump(root, "",""))
end

+a+hello+alpha [1]
| |     +beta [2]
| +world+root {.}
|       +bar [haha]
|       +foo [ooxx]
+c {.a.hello}
+b+test {.a}

["a"] = {["hello"] = {["alpha"] = 1,["beta"] = 2,},["world"] = {["bar"] = "haha",["foo"] = "ooxx",},
},
["c"] = {["alpha"] = 1,["beta"] = 2,
},
["b"] = {["test"] = {["hello"] = {["alpha"] = 1,["beta"] = 2,},["world"] = {["bar"] = "haha",["foo"] = "ooxx",},},
},["a"] = {["hello"] = {["alpha"] = 1,["beta"] = 2,},["world"] = {["bar"] = "haha",["foo"] = "ooxx",},
},
["c"] = {["alpha"] = 1,["beta"] = 2,
},
["b"] = {["test"] = {["hello"] = {["alpha"] = 1,["beta"] = 2,},["world"] = {["bar"] = "haha",["foo"] = "ooxx",},},
},

-- 序列化tablle表--將表轉化成string
function serialize(obj)local lua = ""local t = type(obj)if t == "number" thenlua = lua .. objelseif t == "boolean" thenlua = lua .. tostring(obj)elseif t == "string" thenlua = lua .. string.format("%q", obj)elseif t == "table" thenlua = lua .. "{\n"for k, v in pairs(obj) dolua = lua .. "[" .. serialize(k) .. "]=" .. serialize(v) .. ",\n"endlocal metatable = getmetatable(obj)if metatable ~= nil and type(metatable.__index) == "table" thenfor k, v in pairs(metatable.__index) dolua = lua .. "[" .. serialize(k) .. "]=" .. serialize(v) .. ",\n"endendlua = lua .. "}"elseif t == "nil" thenreturn nilelsereturn "-nil-" --error("can not serialize a " .. t .. " type.")endreturn lua
end

-- 反序列化tablle表--將string轉化成table
function unserialize(lua)local t = type(lua)if t == "nil" or lua == "" thenreturn nilelseif t == "number" or t == "string" or t == "boolean" thenlua = tostring(lua)elseerror("can not unserialize a " .. t .. " type.")endlua = "return " .. lualocal func = loadstring(lua)if func == nil thenreturn nilendreturn func()
end