-- 將對象序列化
function serialize( o )
if type(o) == "number" then -- 是否是數(shù)字
io.write(o)
elseif type(o) == "string" then -- 是否是 字符串
io.write(string.format( "%q", o )) -- %q 接受一個字符串并將其轉化為可安全被Lua編譯器讀入的格式
elseif type(o) == "table" then -- 是否是 table
io.write("{\n")
for k,v in pairs(o) do
-- io.write(" " , k , "=")
io.write("[" , k , "]=")
serialize( v )
io.write(",\n")
end
io.write("}\n")
else
error("cannot serialize a " .. type(o))
end
end
a = {a=12 , b = 'lua' , key = 'another "one"'}
serialize(a)
serialize{a=12 , ["if"] = 'lua' , key = 'another "one"'}
有環(huán) table 的保存
-- 保存有環(huán)的table
function basicserialize(o)
if type(o) == "number" then
return tostring(o)
else -- 假定是一個字符串
return string.format("%q", o )
end
end
function save( name , value , saved )
saved = saved or { } -- 初始值
io.write( name , "=" )
if type(value) == "number" or type( value ) == "string" then
io.write( basicserialize(value) , "\n" )
elseif type(value) == "table" then
if saved[value] then -- 該value是否已保存過
io.write(saved[value],"\n") -- 使用先前的名字
else
saved[value] = name -- 為下次使用保持名字
io.write("{}\n")
for k , v in pairs(value) do
k = basicserialize( k )
local fname =string.format( "%s[%s]" , name , k )
save( fname , v , saved )
end
end
else
error("cannot save a " .. type(value) )
end
end
--[[
a = { x = 1 , y = 2 , key = 128 }
save( "s" , a )
--]]
--[[
a = { x = 1 , y = 2 , { 3 ,4 ,5} }
a[2] = a -- 環(huán)
a.z = a[1] -- 共享子table
save( "s" , a )
--]]
a = {{ "one" , "two" } , 3 }
b = { k = a[1] }
local t = {}
save("a" , a , t )
