function serialize(obj)
local lua = “”
local t = type(obj)
if t == “number” then
lua = lua .. obj
elseif t == “boolean” then
lua = lua .. tostring(obj)
elseif t == “string” then
lua = lua .. string.format(“%q”, obj)
elseif t == “table” then
lua = lua .. “{\n”
for k, v in pairs(obj) do
lua = lua .. “[” .. serialize(k) .. “]=” .. serialize(v) .. “,\n”
end
local metatable = getmetatable(obj)
if metatable ~= nil and type(metatable.__index) == “table” then
for k, v in pairs(metatable.__index) do
lua = lua .. “[” .. serialize(k) .. “]=” .. serialize(v) .. “,\n”
end
end
lua = lua .. “}”
elseif t == “nil” then
return nil
else
error(“can not serialize a ” .. t .. ” type.”)
end
return lua
end

function unserialize(lua)
local t = type(lua)
if t == “nil” or lua == “” then
return nil
elseif t == “number” or t == “string” or t == “boolean” then
lua = tostring(lua)
else
error(“can not unserialize a ” .. t .. ” type.”)
end
lua = “return ” .. lua
local func = loadstring(lua)
if func == nil then
return nil
end
return func()
end

data = {[“a”] = “a”, [“b”] = “b”, [1] = 1, [2] = 2, [“t”] = {1, 2, 3}}
local sz = serialize(data)
print(sz)
print(“———”)
print(serialize(unserialize(sz)))

經實驗證明挺好用的， 記錄下來， 備用， 此部落格為轉發， 原創找不到了， 見一個轉發部落格